Re: parse out the email body

[Hans Dieter Pearcey]

On Wed, Jun 25, 2008 at 10:38:09AM -0400, Ricardo SIGNES wrote:
> You want something like:
> 
>   my $root = Email::MIME->new($message_text);
>   my ($html_part) = grep { $_->content_type =~ m{^text/html} } 
> $root->subparts;

Or:

  use Email::MIME::XPath;
  my $html_part = $root->xpath_findnode('//html');

hdp.