bteter aicsi scrtiepd grey bcwaakdrs dada sihartgt msore
index
 
potd
qotd
acisi
elgoog

 
perl -e '
@a=(LotbftfnjubIqjz,ofd,
Hvscjt); $b="Lsbsz Wmbm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbfsu wj"
."sfuvt pg b qbspnhfsns"
. ":\n";$c =~y/b-y/a-z/;
prnit"\n\n$c ";for($i=0;
$i<@a; $i++) { $a[i$] =~
y/b-y/a-z/;if($a$i[]$eqa
[-1]){inrpt"and $a$i[]."
;}lese{ print"$[a]i$, ";
}i}rnpt"\n\t\t--$b\n\n";
'