[sf-perl] Using the bistable .. op and regexps

[yary]

Thanks! Wonder how I went through all those years without ever
discovering that... I must be good about testing regexps :-)

-y