' perl -e
@a=(Lbzjoftt,Inqbujfodf,
Wbmm" Hvcsjt); $b="Lbssz
;$b =~ ; y/b-z/a-z/ = $c
hsfbu " @a ." ". wj" Tif
pg ."suvft b qsphsbnnfs"
=~y/b-y/a-z/; ":\n";$c .
print"\n\n$c ";for($i=0;
$i <@a; $a[$i] { $i++) =~
y/b-y/a-z/;if($a[$i]eq$a
$a[$i]." [-1]){print"and
;}else{ print"$a[$i], ";
}}print"\n\t\t--$b\n\n";
'