Help for this page
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 { ... }