my $bad = "NotMe!";

my @list = qw (one two three NotMe! four);

my @goodList = grep NOT /$bad/, @list;