Mail::Internet is a useful module for parsing email messages.

If you don't want the overhead of using modules, you could do something like:

my $from;
while (<MAIL>) {
    my $mail = $_;
    chomp $mail;
    next unless substr($mail, 0, 6, '') eq 'From: ';
    $from = $mail;
    last;
}
print "Mail from : $from\n";
[download]

Received: (qmail 21565 invoked by uid 9); 7 Apr 2001 13:27:27 -0000
To: php-general@lists.php.net
From: "Andre Bajew" <AndreBajew@TechnologyArt.com>
Date: Sat, 7 Apr 2001 08:27:44 -0500
[download]

is in $line, you could:

my ($extract) = $line =~ m#^(From: .*?)$#m;
[download]

- FrankG

This could be anything, but I assume you want to retrieve the e-mail from it for some reason

here's one way to do it:

# if this all is in the variable $message.. and
# all your messages are the same..you can do

my ($name, $email) = $message =~ /^From:\s+\"(.*)\"\s+\<(.*)\>$/m;

# and you get the name and the e-mail..
[download]

WARNING!!! This is untested