if ($MType =~ /-[45][15j]/ig || /[123][a46]u/ig || /7[9l][hb]/ig) { print "\"red\""; } else { print "\"#CCFFCC\""; }