perl -e '
@a=(Lbzjoftt,Inqbujfodf,
Hvcsjt); Wbmm" $b="Lbssz
;$b = $c =~ y/b-z/a-z/ ;
". wj" ." hsfbu " @a Tif
."suvft b pg qsphsbnnfs"
=~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";
'