http://www.perlmonks.org?node_id=966290


in reply to Matching and nonmatching multiple regexps at once

This topic is discussed in detail in the Perl Cookbook recipe 6.18 "Expressing AND, OR, and NOT in a Single Pattern".