btteer aisci seiptrcd grey bcakdwars dada saghritt mosre
inedx
 
potd
qotd
ascii
eoglog

 
perl -e '
@a=(LtfIbtojznfou,qjdbf,
Hcjsvt); $b="Lbssz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hsbfu wj"
."sufvt pg b qbsnpsnhfs"
. ":\n";$c =~y/b-y/a-z/;
pnirt"\n\n$c ";for($i=0;
$i<@a; $i++) { $[a$i] =~
y/b-y/a-z/;if($[ea$i]q$a
[-1]){irpnt"and $a[i$]."
;}lese{ print"$i]$a[, ";
}n}rpit"\n\t\t--$b\n\n";
'