better
ascii
pialn
clerood
badrackws
dada
saightrt
msroe
inedx
 
ptod
qotd
acsii
eoolgg
 

perl -e '
@a=(LqozIfunbtjft,fodbj,
Hcjsvt); $b="Lbssz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbfsu wj"
."sufvt pg b qsnhsnbpfs"
. ":\n";$c =~y/b-y/a-z/;
pinrt"\n\n$c ";for($i=0;
$i<@a; $i++) { $[$ai] =~
y/b-y/a-z/;if($[ai$e]q$a
[-1]){rpnit"and $$[ai]."
;}slee{ pirnt"$]$a[i, ";
}nrp}it"\n\t\t--$b\n\n";
'