in reply to General Advice

Regexp::Assemble perhaps?

In Section Seekers of Perl Wisdom