Re^5: MIME::Parser parse

in reply to Re^4: MIME::Parser parse_data
in thread MIME::Parser parse_data

For reference sake I used this method:


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_strin
+g));
                                                } else {
                                                        $MessageBody =
+ " -  ". $tmp_part->bodyhandle->as_string;
                                                }
[download]

Comment on Re^5: MIME::Parser parse_data Download Code

In Section Seekers of Perl Wisdom