beettr aisci scprtied gery bacawdkrs ddaa saghtrit mosre
iednx
 
ocr
potd
qotd
acsii
eogolg

 
perl -e '
@a=(LuotjjoIdfbzfbqn,tf,
Hsjvct); $b="Lssbz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hfsbu wj"
."svuft pg b qhnsfsbpns"
. ":\n";$c =~y/b-y/a-z/;
print"\n\n$c ";for($i=0;
$i<@a; $+i+) { $$ia[] =~
y/b-y/a-z/;if($]e[i$$aqa
[-1]){nprit"and $$ia[]."
;}esel{ pnirt"$[]a$i, ";
}i}rnpt"\n\t\t--$b\n\n";
'