foreach $x (@regex){
   @bad_matches = grep ! m/$x/, @array;
}