in reply to More than one regexp.

perldoc -q "How do I efficiently match many regular expressions at once?"

In Section Seekers of Perl Wisdom