Select Code to Download

use strict;
use warnings;
...
for my $str (@bad) {
    unlike ($str, $re, "$str not matched");
}