btteer ascii serpcitd coroled bacawkdrs ddaa sithgart mosre
iednx
 
ptod
qotd
aicsi
egoolg

 
perl -e '
@a=(Lfo,Ijfofjzutdqtbbn,
Hjvsct); $b="Lsbsz Wmbm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hfsbu wj"
."suvft pg b qssnnfbphs"
. ":\n";$c =~y/b-y/a-z/;
pinrt"\n\n$c ";for($i=0;
$i<@a; $i++) { $[ai$] =~
y/b-y/a-z/;if($$q$]ia[ea
[-1]){rnpit"and $i$[a]."
;}lsee{ prnit"$a]$[i, ";
}npi}rt"\n\t\t--$b\n\n";
'