Select Code to Download

sub regex2 { my $pat = shift ;
     eval q%sub {
...
           }
              }%; 
}

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

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

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

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