Parsing email messages in perl??

Hi,

I was gonna play around and fix the bug but I need to process two batches of  data for my client by tomorrow and I am not yet efficient to write this up in short time.
I got some help already to write up this script here but it is not process the file correctly.
It just print out each line from the data file.

I just want to parse them into one cvs file under this headings.
File,Full Path,Extension,Subject,Email Date,From,To,CC,AttachementInfo,BCC,Exported,Attachments

Some of these fields might run off more than one line. I checked a few files and definitely know (Full Path,To, CC, BCC and attachemnts might run on multiple lines)

There are multiple files in a folder and each file contains multiple messages separated by == lines and white space.
Your help will be greatly appreciated.


script:
#!/usr/bin/perl
#Parse email - exchange data
#ParseExchangeMessage.pl
use strict;

my $record;
open (IN, "C:/Project/Perl/some mesage.txt") or die "We have a problem: $!";
{local $/; $record = <IN>;}
close IN;

print "File,Full Path,Extension,Subject,Email Date,From,To,CC,Attachement,BCC,Exported\n";

$record = "_-_\n" . $record . "_-_\n";

my ($match1, $fileName) = ($record =~ /(File\s*:\s*(.+)\n)/i);
$record =~ s/$match1/_-_/;
print "$fileName,";


my($fullpath) = ($record =~ /Full Path\s*:\s*(.+?)\n_-_/si);
print "$fullpath,";


my ($match3, $extension) = ($record =~ /(Extension\s*:\s*(.+)\n)/i);
$record =~ s/$match3/_-_/;
print "$extension,";

my ($match4, $subject) = ($record =~ /(Subject\s*:\s*(.+)\n)/i);
$record =~ s/$match4/_-_/;
print "$subject,";

my ($match5, $email) = ($record =~ /(Email Date\s*:\s*(.+)\n)/i);
$record =~ s/$match5/_-_/;
print "$email,";

my ($match6, $from) = ($record =~ /(From\s*:\s*(.+)\n)/i);
$record =~ s/$match6/_-_/;
print "$from,";

my ($match7, $to) = ($record =~ /(To\s*:\s*(.+)\n)/i);
$record =~ s/$match7/_-_/;
print "$to,";

my ($match8, $cc) = ($record =~ /(CC\s*:\s*(.+)\n)/i);
$record =~ s/$match8/_-_/;
print "$cc,";

my ($match9, $attachment) = ($record =~ /(Attachment Info\s*:\s*(.+)\n)/i);
$record =~ s/$match9/_-_/;
print "$attachment,";

my ($match10, $bcc) = ($record =~ /(BCC\s*:\s*(.+)\n)/i);
$record =~ s/$match10/_-_/;
print "$bcc,";

my ($match11, $exp) = ($record =~ /(Exported as\s*:\s*(.+)\n)/i);
$record =~ s/$match11/_-_/;
print "$exp,";


my($attachment) = ($record =~ /Attachments\s*:\s*(.+?)\n_-_/si);
print "$attachment\n";


Sample Data:

some text here
===========================================================================

File: Message0004
Full Path: D:\user\some email accounts\sh_Other Misc aol
Accts\xxx.xxx.mbox>>Message0004
Extension:
Subject: "RE: Email ID/s"
Created: N/A
Modified: N/A
Logical Size: 6,858
Deleted:
MD5: B0B88F5C5268D60C8DCA539FD720BD32
Email Date: Tue, 9 Jan 2007 16:06:07 +0330
From: "xxx xxx" <xxx.xxx@xx.com>
To: "'xxxxxxx'" <xxx.xxx@xx.com>
CC: "'xxxxxxx'" <xxx.xxx@xx.com>, <xxx.xxx@xx.com>,<xxx.xxx@xx.com>,
<xxx.xxx@xx.com>,<xxx.xxx@xx.com>,<xxx.xxx@xx.com>,
<xxx.xxx@xx.com>,<xxx.xxx@xx.com>,<xxx.xxx@xx.com>,<xxx.xxx@xx.com>
Attachment Info:
BCC:
Exported as: file1.html (Link: Export/file1.html)
Attachments: Message0004&#62;&#62;Attachment1 (Link: Export/file1)

===========================================================================


File: Message0016
Full Path: C:\users\some email accounts\ur7_Other Misc some
Accts\xxx.xxxmbox>>Message0016
Extension:
Subject: "xxxxxxxxx"
Created: N/A
Modified: N/A
Logical Size: 5,672
Deleted:
MD5: 358683D75A7079ABCB8BB30C7134A3A0
Email Date: Sun, 21 Jan 2007 17:40:23 +0400
From: "xxxxx xxx" <xxx.xxx@xx.com>
To: <xxx.xxx@xx.com>
CC: xxx.xxx@xx.com, xxx.xxx@xx.com, xxx.xxx@xx.com,
xxx.xxx@xx.com,xxx.xxx@xx.com
Attachment Info:
BCC:
Exported as: sdddd2.html (Link: Export/sdddd2.html)
Attachments: Message0016&#62;&#62;Attachment1 (Link: Export/sdddd2)
    Message0016&#62;&#62;xxxxxxxxP1.jpg (Link:
Export/sdddd2.jpg)
    Message0016&#62;&#62;xxxxxxxxxP2.jpg (Link:
Export/sdddd2.jpg)
    Message0016&#62;&#62;xxxxxxxxxx.jpg (Link:
Export/sdddd2.jpg)
    Message0016&#62;&#62;xxxxxxxxxxx.jpg (Link:
Export/sdddd2.jpg)
    Message0016&#62;&#62;xxxxxxx).jpg (Link: Export/sdd3.jpg)
    Message0016&#62;&#62;xxxx.jpg (Link: Export/xxxxxx.jpg)

===========================================================================