bteter asici spceritd cleoord bdaakwrcs ddaa saigthrt morse
inedx
 
ocr
ptod
qtod
acisi
egolog

 
perl -e '
@a=(LIf,tbzundjftfjboqo,
Hvscjt); $b="Lbssz Wmbm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbsfu wj"
."suvft pg b qfhnnsspbs"
. ":\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($a$ie$q[]a
[-1]){ipnrt"and $[$ia]."
;}seel{ print"$a$][i, ";
}pn}irt"\n\t\t--$b\n\n";
'