Select Code to Download

my @patterns = qw(-[45j][15j] [1-3][a46]u 41u 57h 7[9l]b 8[046]u 9[ab]
+t [1l][0b][uv] no [ou][j249][cdeg]);
...
        print ">\n";
}

if ($mypattern =~ /$pattern/ig) {
    ...
...
} else {
    ...
}