bteetr aisci sprtceid grey bdawkcras dada sarigtht msroe
inedx
 
potd
qtod
ascii
eologg

 
perl -e '
@a=(Ldj,qInfoufobzbtfjt,
Hjvcst); $b="Lbssz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hfsbu wj"
."sfuvt pg b qpnssbhfns"
. ":\n";$c =~y/b-y/a-z/;
pirnt"\n\n$c ";for($i=0;
$i<@a; $+i+) { $ia[$] =~
y/b-y/a-z/;if($aq$][i$ea
[-1]){rpnit"and $$[ia]."
;}eles{ pinrt"$a]i[$, ";
}rpni}t"\n\t\t--$b\n\n";
'