@patterns = qw(cat dog);
$code = 'if (/';
$code .= join('/ && /', @patterns);
$code .= '/) {
   print "Found a DOG and a CAT!\n\n";
}';
eval $code;
die "Error: $@" if ($@);