Why cant you use something like if (/regex1/ and /regex2) perldoc perlre says.
"The deeper underlying truth is that juxtaposition in regular expressions always means AND, except when you write an explicit OR using the vertical bar. "/ab/" means match "a" AND (then) match "b", although the attempted matches are made at different positions because "a" is not a zero width assertion, but a one width assertion. "
Hope this is of some help