use MIME::Parser; use Data::Dumper; my $message = join '', ; # 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: Received: from mta05ps.bigpond.com (mta05ps.bigpond.com [144.135.25.137] (may be forged)) by zeus.tassie.net.au (8.8.8/8.8.8) with ESMTP id QAA28679 for ; 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 SMTP id GKVFL800.57H for ; Mon, 8 Oct 2001 15:07:56 +1000 Received: from 144.137.126.1 ([144.137.126.1]) by psmam05.mailsvc.email.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 Version: 3.2.4. Build: 1100 ) ) ; Mon, 08 Oct 2001 15:01:51 +1000 From: "Vicki Cain" To: "James Freeman \(E-mail\)" 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