in reply to Regex Help

But this looks inefficient

Does it work for your porposes?

In Section Seekers of Perl Wisdom