Here is a MIME::Parser example. The datastructure it generates is quite complex but it is all there. In nice neat chunks. 

use MIME::Parser;
use Data::Dumper;

my $message = join '', <DATA>;

# Create a new parser object:
my $parser = new MIME::Parser;

# Parse a message:
$entity = $parser->parse_data($message);

# Get results
my $results  = $parser->results;

print Dumper( $results );


__DATA__
Return-Path: <vicki@moyes.com.au>
Received: from mta05ps.bigpond.com (mta05ps.bigpond.com [144.135.25.13
+7] (may be forged))
        by zeus.tassie.net.au (8.8.8/8.8.8) with ESMTP id QAA28679
        for <jfreeman@tassie.net.au>; Mon, 8 Oct 2001 16:02:04 +1100 (
+EST)
Received: from moyes.com.au ([144.135.25.81]) by
          mta05ps.bigpond.com (Netscape Messaging Server 4.15) with SM
+TP
          id GKVFL800.57H for <jfreeman@tassie.net.au>; Mon, 8 Oct 200
+1
          15:07:56 +1000 
Received: from 144.137.126.1 ([144.137.126.1]) by psmam05.mailsvc.emai
+l.bigpond.com(MailRouter V2.9j 8410/9896696); 08 Oct 2001 15:07:52
Received: from VICKI ([10.0.0.1]) by moyes.com.au ( IA Mail Server Ver
+sion: 3.2.4. Build: 1100 ) ) ; Mon, 08 Oct 2001 15:01:51 +1000
From: "Vicki Cain" <vicki@moyes.com.au>
To: "James Freeman \(E-mail\)" <jfreeman@tassie.net.au>
Subject: New Order
Date: Mon, 8 Oct 2001 15:01:51 +1000
Message-ID: <004301c14fb6$57b89000$0100000a@VICKI>
MIME-Version: 1.0
Content-Type: text/plain;
        charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook CWS, Build 9.0.2416 (9.0.2910.0)
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4807.1700
Importance: Normal
Status: U
X-Mozilla-Status: 8001
X-Mozilla-Status2: 00000000
X-UIDL: XSa"!WYn"!AWf!!OTl"!

Hi James,
I would like to place a new order of 50 Fast bars all annodised.
Thanks.

Let me know if you are interested in us taking over the manufacturing 
+cause
we are.

Best Regards

Vicki Cain
Moyes Delta Gliders Pty. Ltd.
1144 Botany Road
Botany NSW 2019
Australia

Ph: +61 (02) 9316 4644
Fax: + 61 (02) 9316 8488
Web: www.moyes.com.au

[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

In reply to Re: Email STDIN by tachyon
in thread Email STDIN 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.