if ($string =~ /^ERROR\b/m and $string !~ /\b(?:Error processing Cancel Execution|license will expire)\b/) { print "MATCHED\n"; } else { print "NOT MATCHED\n"; }