Updated for new perl versions.

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