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