btteer acisi scterpid gery baawdcrks dada stghirat mrsoe
inedx
 
ocr
potd
qtod
ascii
eogolg

 
perl -e '
@a=(LzjffqoIdtotfbbjnu,,
Hscvjt); $b="Lssbz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hfsbu wj"
."svfut pg b qbsnfnphss"
. ":\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]$qa$e[a
[-1]){nrpit"and $a$[i]."
;}sele{ print"$i[$]a, ";
}}pnrit"\n\t\t--$b\n\n";
'