$a=eval ('eval q[${q&@KZB&};&{\'?~x})Jcd}anw)Ynwe)Ajh`nw\'}];$'
.($/^'J').'=~/([@?][^" ]+)/; $1');for(split'',$a){print$/^(chr(
ord($_)+int(length($a)/ord($/)/2)));}print$/;