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