Help for this page

Select Code to Download


  1. or download this
    if ($MType =~ /-[45][15j]/ig  || 
    $_     =~ /[123][a46]u/ig ||
...
} else {    
      print "\"#CCFFCC\"";
}
  2. or download this
    my %matches;
foreach (qw( -41 -55 -jj 1au 24u 36u)) {
...
} else {
    print "\"#CCFFCC\"";
}