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