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

(?!шаблон)   # после текущей точки не дожно быть текста, соотносимого с шаблоном
(?<!шаблон)  # перед текущей точкой не дожно быть текста, соотносимого с шаблоном

G>Прошу помочь

$text = "blablabla";
if ( preg_match( "/^(?!.*abc|.*cda).*$/", $text ) ) {
    print "Текст не содержит строк abc и cda";
} else {
    print "Текст содержит строку abc или cda";
}

А>>$text = "blablabla";
А>>if ( preg_match( "/^(?!.*abc|.*cda).*$/", $text ) ) {
А>>    print "Текст не содержит строк abc и cda";
А>>} else {
А>>    print "Текст содержит строку abc или cda";
А>>}
А>>

preg_match( "/^(?!.*abc|.*cda).*$/", 'blablabla' )

А>>preg_match( "/^(?!.*abc|.*cda).*$/", 'blablabla' )
А>>

B>Конкретно для вашего примера — да, подходит

preg_match( "/^(?!.*(\s|^)abc(\s|$)|.*(\s|^)cda(\s|$)).*$/", 'blablabla' )

B>Тогда я с вами соглашусь и поставлю вам оценку "супер"

B>Конкретно для вашего примера — да, подходит

B>Тогда я с вами соглашусь и поставлю вам оценку "супер"

/^(?!.*\bfoo\b|.*\bbar\b).*$/