in reply to Parse String Question

m/(\w+)(Crit|Maj|Okay)/

In Section Seekers of Perl Wisdom