[Mpls-pm] Parse Email

[Joe Stuart]

Hi,
I have setup an email server to pass an email to a
perl script. I am having a problem finding a module
that will strip everything except the text that the
user typed in the message body. I have been using
Mail::Internet, but for example, when I send a message
from outlook or Yahoo, a lot of extra text comes
through. Here is what I am using

#stores the message in $obj
my $obj = Mail::Internet->new(\*STDIN);

#stores the message body
$message_ref = $obj->body();

I was just wondering if anyone has any experience with
this and could offer some advice.


Thanks
-Joe