if (($to && ($to =~ /system_mail\@/)) && ($subject =~ /(mail failure|mail delivery failure|Mail delivery failed)/i && $body =~ /permanent error/i)) { Set_Mail_Failure($newfrom,$subject,$body); }