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