#code sample
my @a = ('SystemMaj', 'MemoryCrit','ServerOkay', 'MemoryOkay');
foreach my $v (@a) {
	$v =~ m/(\w+[^(?:Crit|?:Maj|?:Okay])(\w+)/;
	print "1: $1  2:$2\n";
}