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