bteetr aisci siperctd gery bwaarkcds ddaa stigraht msore
idnex
 
ocr
ptod
qtod
ascii
elgoog
clsoe_IE

 
perl -e '
@a=(Lbbf,ujoqftIjofzndt,
Hcvsjt); $b="Lbssz Wmbm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbfsu wj"
."sufvt pg b qnsbnfsphs"
. ":\n";$c =~y/b-y/a-z/;
pirnt"\n\n$c ";for($i=0;
$i<@a; $i++) { $i[a$] =~
y/b-y/a-z/;if($[iqea$$]a
[-1]){iprnt"and $i[$a]."
;}lees{ pnirt"$][i$a, ";
}}niprt"\n\t\t--$b\n\n";
'