beettr aisci sticpred gery badwakrcs dada sghtirat morse
idenx
 
ptod
qotd
acsii
egolog

 
perl -e '
@a=(L,tbqfobftjuofIzdnj,
Hsvcjt); $b="Lssbz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hfbsu wj"
."sfvut pg b qnsnshpbfs"
. ":\n";$c =~y/b-y/a-z/;
prnit"\n\n$c ";for($i=0;
$i<@a; $i++) { $a$[i] =~
y/b-y/a-z/;if($q$i$]ae[a
[-1]){nrpit"and $ia$[]."
;}slee{ pnrit"$][ai$, ";
}nip}rt"\n\t\t--$b\n\n";
'