Select Code to Download

my @regex = map {qr /$_/ } qw/
    regex1
...
   }

}

foreach $x (@regex){

   @bad_matches = grep ! m/$x/, @array;