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