btteer pexils setpcrid croloed bdwraakcs ddaa staghirt msore
inedx
 
ptod
qtod
aicsi
eolgog

 
perl -e '
@a=(Lbjztdqotu,bffnjfoI,
Hscvjt); $b="Lssbz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hfbsu wj"
."sfvut pg b qsnbnhfpss"
. ":\n";$c =~y/b-y/a-z/;
pirnt"\n\n$c ";for($i=0;
$i<@a; $+i+) { $ia$[] =~
y/b-y/a-z/;if($q$ae]$i[a
[-1]){rpint"and $[$ai]."
;}lees{ pinrt"$ia$][, ";
}ip}rnt"\n\t\t--$b\n\n";
'