if ($str =~ s/<regexp>/) { ... }   # истина при соответствии регулярному выражению
if ($str !~ s/<regexp>/) { ... }   # истина при несоответствии регулярному выражению

/[^(str|foo|bar)]/

ЖуК>/[^(str|foo|bar)]/
ЖуК>

#!/usr/local/bin/perl

use strict;
my $str = "foo, bar, str";
print "$str\n" if ($str =~ /[^(str|foo|bar)]/);

# ./test.pl
foo, bar, str

ЖуК>>>/[^(str|foo|bar)]/
ЖуК>>>

<?php
error_reporting( E_ALL);
$strings = array( 'str', 'foo', 'bar', 'blablabla');
foreach ($strings as $str) {
    echo preg_match( '/[^(str|foo|bar)]/', $str) ? $str . '<br>' : 'forbidden string<br>';
}
?>

ЖуК><?php
ЖуК>error_reporting( E_ALL);
ЖуК>$strings = array( 'str', 'foo', 'bar', 'blablabla');
ЖуК>foreach ($strings as $str) {
ЖуК>    echo preg_match( '/[^(str|foo|bar)]/', $str) ? $str . '<br>' : 'forbidden string<br>';
ЖуК>}
ЖуК>?>
ЖуК>

<?php
error_reporting( E_ALL);
$strings = array( 'adsf&str=ru', ' asdf foo asdf', ' sdf bard fd', 'blablabla');
foreach ($strings as $str) {
    echo preg_match( '/[^(str|foo|bar)]/', $str) ? $str . '<br>' : 'forbidden string<br>';
}
?>

adsf&str=ru
asdf foo asdf
sdf bard fd
blablabla