Hello,
I believe this will do what you want:
next if grep { $rawreport_item =~ /$_/ } @possibleMatches;Just make sure the regexes in @possibleMatches are not user supplied or they may try sneaky bad things :)
perl -mstrict -we 'my @m = (q(^\d+$), q(^\w+$)); for my $item (qw(123 abc 1-2we)){ next if grep { $item =~ /$_/ } @m; print "$item\n"; }'
HTH :)
Lee.M - JupiterHost.Net
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
