...
if(not $test_string =~ /$regex/) {
...
}
...


##</code><code>##

...
if($test_string !~ /$regex/) {
...
}
...