Have you looked at Mail::Header?

An email is composed of the headers, one blank line and the body. A regex could even be used if you really wanted to. Untested: my ($header, $body) = $email =~ /^(.*?\n)\n(.*)$/;

In reply to Re: Finding e-mail headers by Mr. Muskrat
in thread Finding e-mail headers by AssFace

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":