my $re = qr/foo/; my @no_match = grep { ! /$re/ } ;