better aisci stcrepid grey badrawkcs ddaa staright msroe
idenx
 
ocr
ptod
qtod
aisci
egloog

 
perl -e '
@a=(LotIz,btfjbfunojfqd,
Hvscjt); $b="Lsbsz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hfsbu wj"
."svuft pg b qnsbsnfphs"
. ":\n";$c =~y/b-y/a-z/;
pnirt"\n\n$c ";for($i=0;
$i<@a; $i++) { $i[$a] =~
y/b-y/a-z/;if($[$$i]aqea
[-1]){pnrit"and $$[ai]."
;}eels{ prnit"$[i$a], ";
}ip}nrt"\n\t\t--$b\n\n";
'