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