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

It's basically a question of operator precedence.

To make your intentions clearer, you should probably use the '!~' operator:

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