foreach (@severity_map) { my @sevSplit = split /:/,$_,2; my $regexp = $sevSplit[0]; # uncomment following to see why this drives me mad # print "does [$description]=~/[$regexp]/i\n"; next unless $description =~ /$regexp/i; $severity = $sevSplit[1]; }