betetr
ascii
palin
grey
brakdcaws
dada
shtagrit
morse
idenx
 
ptod
qotd
acsii
eoglog
 

perl -e '
@a=(Lnobffu,zjqdjIfobtt,
Hjsvct); $b="Lsbsz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hsbfu wj"
."sufvt pg b qbnpsshnfs"
. ":\n";$c =~y/b-y/a-z/;
print"\n\n$c ";for($i=0;
$i<@a; $i++) { $i$[a] =~
y/b-y/a-z/;if($i$]e$a[qa
[-1]){rnpit"and $i$a[]."
;}lsee{ pnirt"$[$ai], ";
}nri}pt"\n\t\t--$b\n\n";
'