beettr asici serpitcd ceoolrd bdaawkcrs ddaa sitarhgt msroe
idenx
 
ocr
potd
qotd
aicsi
egoolg

 
perl -e '
@a=(Lofjnb,tbIdfqzotfju,
Hcsvjt); $b="Lsbsz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbsfu wj"
."sfuvt pg b qnspfsnbhs"
. ":\n";$c =~y/b-y/a-z/;
pinrt"\n\n$c ";for($i=0;
$i<@a; $i++) { $a[$i] =~
y/b-y/a-z/;if($ia$e]q[$a
[-1]){rnipt"and $a[$i]."
;}else{ pnirt"$[ai]$, ";
}}inprt"\n\t\t--$b\n\n";
'