Edicion:
Esa primera validacion logre repararla pero tengo otras tantas en la que tengo que depurar lo mas posible la data y son las siguientes:
foreach(split(/\n/, $body ) ){
next if(/^\s*$/);
if($_ =~ /^(\d{3}\s\d{1}\.\d{1}\.\d{1})/ig ){
$smtpCode = $1;
}elsif($_ =~ /^\d{3}\s\d{1}\.\d{1}\.\d{1}\s(.*)$/ig ){
$smtpCodeDetail = $1;
}elsif($_ =~ /^Final-Recipient:\sRFC822;\s([A-z0-9_\-\.]+@[A-z0-9_\-\.]+\.\w+)+$/ig ){
$email = $1;
}elsif($_ =~ /^Action:\s(\w+)$/){
$smtpAction = $1;
}elsif($_ =~ /^Status:\s(\d\.\d\.\d)$/){
$smtpStatus = $1;
}elsif($_ =~ /^Diagnostic-Code:\sSMTP;\s(.*)$/){
$smtpDiagnosticCode = $1;
if(($smtpDiagnosticCode =~ /(550\sSC\-[\d]{3})/ ) or ($smtpDiagnosticCode =~ /(550\sOU\-[\d]{3})/) or ($smtpDiagnosticCode =~ /(550\sDY\-[\d]{3})/) or ($smtpDiagnosticCode =~ /(421\sRP\-[\d]{3})/ ) ){
$ipTempFiler = 1;
}
}elsif($_ =~ /^Remote-MTA:\sDNS;\s([A-Za-z0-9\.\-]+)$/){
$smtpRemoteMta = $1;
}elsif($_ =~ /^Last-Attempt-Date:\s[A-Za-z]+\,\s(\d{1,2}\s[A-Za-z]+\s\d{4}\s[0-9:]{8}\s[0-9\-]{5})/ig ){
$smtpLastAttemptDate = convert_date($1);
}elsif($_ =~ /^X-RSidusuario:\s(\d+)$/){
$usuarioId = $1;
}elsif($_ =~ /^X-RS-idadmin:\s(\d+)$/){
$adminId = $1;
}elsif($_ =~ /^X-RS-idcamp:\s(\d+)$/){
$campanaId = $1;
}elsif($_ =~ /^X-RS-idlist:\s(\d+)$/){
$listaId = $1;
}