if($tmp_part->bodyhandle->as_string =~ m/^(?: [A-Za-z0-9+\/]{4} ) * (?:[A-Za-z0-9+\/]{2} [AEIMQUYcgkosw048] = | [A-Za-z0-9+\/] [AQgw] ==)?\z/x) { $MessageBody = " - ". decode('UTF-8',decode_base64($tmp_part->bodyhandle->as_string)); } else { $MessageBody = " - ". $tmp_part->bodyhandle->as_string; }