bteter aisci srpectid croeold barckdwas ddaa sahtgrit morse
idenx
 
potd
qtod
asici
elgoog

 
perl -e '
@a=(LfIzfobtbjfod,jnuqt,
Hsvjct); $b="Lssbz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hsbfu wj"
."suvft pg b qbpfnsnhss"
. ":\n";$c =~y/b-y/a-z/;
pirnt"\n\n$c ";for($i=0;
$i<@a; $+i+) { $ai$[] =~
y/b-y/a-z/;if($$e$qa]i[a
[-1]){ipnrt"and $i$a[]."
;}lees{ pirnt"$ia$[], ";
}pir}nt"\n\t\t--$b\n\n";
'