Help for this page

Select Code to Download

Select or download this

$ perl -E '
> say qq{$_ - @{ [ m{a(?!.*b)} ? q{Match} : q{No match} ] }} for (
...
What a nice broom - No match
Fishing for trout - No match
$