Re: Writing a negative regex using =~

[Anonymous Monk]

in reply to Writing a negative regex using =~

my( $flag, $regex ) = /(\s*(\!))?(.*)/;
$flag
?  text !~ $regex
: $text =~ $regex