$a="KECCCCAIIIKvefGbjmbsut";@r=("\\","|","_","@","/",",",".","("," ",")");
$v="vbDyzeppxIIACJIECCAIHCEKDIAIGFIEIDIKEBAICCCCIEBA";
$r=$a . $v;while($r){$q=chop($r);
if($q=~/
/){$q=~y/b-x/a-y/;print $q;}else{if($q=~/K/){
print "\n";}else{$q=~y/A-J/0-9/;print @r