sub regex2 { my $pat = shift ;
     eval q%sub {
                my $hits = '0';
           while ($_[0] =~ /$pat/iogx) {$hits++ ;}
           if ($hits) {
                  return $hits ;
           } else {
             return undef() ;
           }
              }%; 
}

##</code><code>##

   my $foobar = regex2 '\bfoo\W+(?:\w+\W+){0,6}bar\b' ;

##</code><code>##

   my $ugly_and_evil = regex2 '\bteam(?!\W+(\w+\W+){0,5}management\b)' ;

##</code><code>##

   my $broken_and_wrong = regex2 '(?<!\bmanagement\W+(\w+\W+){0,5})team' ;

##</code><code>##

my $inherently_evil = regex2 
      '(?<!management)
       (?<!management.)
       (?<!management..)
       (?<!management...)
       (?<!management....)
       (?<!management.....)
       (?<!management......)
       (?<!management.......)
       (?<!management........)
       (?<!management.........)
       (?<!management..........)
       (?<!management...........)
       (?<!management............)
       (?<!management.............)
       (?<!management..............)
         ## ....etc etc etc.....
        team\b
        (?!\W+(\w+\W+){0,5}management)
                             ';