in reply to Combining multiple =~ s/

Building Regex Alternations Dynamically shows how to do this.

In Section Seekers of Perl Wisdom