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