that should be:

m/\G.*(MEH|MED|MMD|MMS|CR1|FR1)/ig
[download]

or

m/\G.*(?:MEH|MED|MMD|MMS|CR1|FR1)/ig
[download]

if you don't want to capture it. just a minor point, but that could break the code.

also, instead of iterating repeatedly with the loop to find pos(), you could set pos() to $currpos and work from there (you'd have to match two more times, i think). that'll make it a little faster.

jeff