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