btteer ascii sitcrped ceoorld bcadkwras ddaa stgihart mrose
idenx
 
ptod
qotd
aisci
eogolg

 
perl -e '
@a=(LbnIofzjtftqfjbo,du,
Hcsvjt); $b="Lbssz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbfsu wj"
."suvft pg b qsnfsnpbhs"
. ":\n";$c =~y/b-y/a-z/;
pnirt"\n\n$c ";for($i=0;
$i<@a; $+i+) { $ai[$] =~
y/b-y/a-z/;if($ia]e[$$qa
[-1]){rpint"and $a$[i]."
;}sele{ pinrt"$a[$]i, ";
}rp}int"\n\t\t--$b\n\n";
'