beettr peilxs siecrptd gery barkdwacs ddaa shartigt morse
inedx
 
ocr
ptod
qotd
acisi
egolog

 
perl -e '
@a=(L,ftobudtjobfIzjqfn,
Hvjcst); $b="Lbssz Wmbm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbfsu wj"
."suvft pg b qnpfnsbhss"
. ":\n";$c =~y/b-y/a-z/;
pirnt"\n\n$c ";for($i=0;
$i<@a; $i++) { $$ai[] =~
y/b-y/a-z/;if($$iq[ae]$a
[-1]){nrpit"and $a$[i]."
;}lese{ pnrit"$[]$ia, ";
}inr}pt"\n\t\t--$b\n\n";
'