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