I need to parse with Perl (module: MIME::Parser) an MIME encoded
E-Mail message (saved in a variable). How can I extract the plaintext
only and save it in a variable?

Hi cgersch,

May be this will help you.

#!/usr/local/bin/perl

use MIME::Parser;

my $parser = new MIME::Parser;
$entity = $parser->parse_open("mail.msg");
$body = $entity->bodyhandle;
$string = $body->as_string;
print $string."\n";

The mail.msg file contained:
*****************************************************************
From MAILER-DAEMON Tue Apr 20 19:46:39 2004
Date: 20 Apr 2004 19:46:39 -0400
From: Mail System Internal Data <MAILER-DAEMON@cs.odu.edu>
Subject: DON'T DELETE THIS MESSAGE -- FOLDER INTERNAL DATA
Message-ID: <1082504799@cs.odu.edu>
X-IMAP: 1080886419 0000000003
Status: RO

This text is part of the internal format of your mail folder, and is not
a real message.  It is created automatically by the mail system software.
If deleted, important folder data will be lost, and it will be re-created
with the data reset to initial values.


***************************************************************

If this doesnt work out let me know.