You're seeing parts of the headers there.
If I remember correctly, you may (using this method) have to use print $$body[2] or something similar.
Please see perldata for more information on why.

Mime::Tools is not the most friendly of modules, either... Here's a small snippet which I used once upon a time. Mail messages are stored in @msgs, ok?

foreach my$thismsg (@msgs){
    my $parser = new MIME::Parser;

    my $ent = $parser->parse_data ("$thismsg");
    print "here's the message :\n$thismsg\n";
    print "mime type is ", $ent->mime_type(),"\n";
    my @all_parts  = $ent->parts;
    foreach (@all_parts) {
        print "mime type is ", $_->mime_type(),"\n";
        my $head=$_->head()->as_string;
        if ($head=~/filename\="(.*?)"/) {print "Filename is $1\n"}
        print "header is $head\n";
        print "------------------done\n";
    }
    print "------------------done with messages\n";

}

[download]
This shows how to read the entire message, parts of the content type and the header. IIRC, to pull out the message body would be similar to my $body=$_->body()->as_string; rather than my $head=$_->head()->as_string;.

In reply to Re: Using MIME::Tools (boo) by boo_radley
in thread Using MIME::Tools by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.