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]);
my $pattern = join "|", @patterns; # Arturo's suggestion

my ($count) = 0;
	my $rm = 0;
			
	while (($CompName, $Department, $LogonDate, $NodeTel, $Model, $MType, $SinNum, $Room, $Name, $Division, $freespace, $userID) = $sth->fetchrow_array ()){
		my $newpattern = $MType;
		
		$mySkip = $count % 2;
		$count = $count + 1;
		
		print "<tr";
		
		if ($newpattern =~ /^${pattern}$/oi) {
			$rm++;
			
			print " bgcolor=\"red\"";
			$newpattern = shift;
			
		} elsif ($mySkip eq 0) {
			print " bgcolor=\"#CCFFCC\"";							
		} else { 
			print " bgcolor=\"white\"";
		} 
		
		print ">\n";
}