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