my $stripper = Email::MIME::Attachment::Stripper->new($intext); my $email_mime = $stripper->message;