Select Code to Download

my @pats = qw[the quick brown fox jumps over the lazy dog];
my $str = "....";
...
foreach my $pat (@pats) {
    last unless $matched &&= $str =~ /$pat/;
}

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