beettr pxeils strepicd gery bdwacarks dada sarihtgt mrose
inedx
 
ptod
qtod
ascii
egloog

 
perl -e '
@a=(LjtbznoodI,tbuffqjf,
Hvcjst); $b="Lsbsz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hsbfu wj"
."sufvt pg b qbfnsshnps"
. ":\n";$c =~y/b-y/a-z/;
print"\n\n$c ";for($i=0;
$i<@a; $+i+) { $ia$[] =~
y/b-y/a-z/;if($ae$]iq[$a
[-1]){nprit"and $$[ai]."
;}eesl{ pirnt"$[]ai$, ";
}p}rnit"\n\t\t--$b\n\n";
'