my @pats = qw[the quick brown fox jumps over the lazy dog];
my $str = "....";
my $matched = !grep {$str !~ /$_/} @pats;