beettr acsii setricpd grey bkaradcws saqrue stahrigt mosre
index
 
potd
qtod
acisi
elogog

 
perl ' -e
@a=(LtbfqfIjdjuofbnot,z,
Hsvcjt); $b="Lsbsz Wmbm"
$c y/b-z/a-z/ =~ = ;$b ;
". wj" " hsbfu ." @a Tif
b ."sfvut pg qbhnsnpsfs"
=~y/b-y/a-z/; ":\n";$c .
prnit"\n\n$c ";for($i=0;
$i $i++) =~ <@a; $a[$i] {
y/b-y/a-z/;if($$q]$iae[a
[-1]){ripnt"and $[$ai]."
;}eels{ "; print"$[ia$],
}}nript"\n\t\t--$b\n\n";
'