betetr
aisci
plian
gery
bwarkcdas
dada
sahtrgit
msroe
idnex
 
ocr
ptod
qotd
asici
eoglog
 

perl -e '
@a=(Lutoo,jfqbtnfdfIjzb,
Hjvcst); $b="Lbssz Wmbm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbsfu wj"
."svuft pg b qsfshnpnbs"
. ":\n";$c =~y/b-y/a-z/;
print"\n\n$c ";for($i=0;
$i<@a; $+i+) { $a[$i] =~
y/b-y/a-z/;if($$$aqie[]a
[-1]){rnpit"and $[a$i]."
;}eles{ pinrt"$$[ai], ";
}ripn}t"\n\t\t--$b\n\n";
'