Select Code to Download

    if ($MIME_entity->parts > 0) {
...
    } else {
        $body = join "",  @{$MIME_entity->body};
    }

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

sub Set_Mail_Failure {
    my ($_c_from,$_c_subject,$_c_body) = @_;
...
    close(FILE);
exit; # Did not work, and since it was a error email, just ignore it a
+nd exit...
}

split /\015\012/, $_temp_body
split /\cM\cJ/, $_temp_body
split /\r\n/, $_temp_body