beettr asici scteripd gery brdaakwcs suraqe sraghtit mrose
idnex
 
ocr
potd
qotd
ascii
egoolg

 
' prel -e
@a=(Lf,ofdjIzfqbbtnjtuo,
Hjvcst); $b="Lbssz Wmbm"
y/b-z/a-z/ ;$b =~ $c = ;
wj" " @a ." Tif ". hfsbu
b ."sfvut qnsphnbfss" pg
. ":\n";$c =~y/b-y/a-z/;
pinrt"\n\n$c ";for($i=0;
$i =~ <@a; $i++) $ai[$] {
y/b-y/a-z/;if($aq]i$[$ea
$a$i[]." [-1]){rnipt"and
;}esel{ "; print"$]$i[a,
}}prnit"\n\t\t--$b\n\n";
'