parsing email to get required information using perl script

Hi,


I am new to perl and i need some help in parsing email's using some perl script and get required information

Below is the sample email format in the logfile

From Mon Apr 14 20:24:14 2014
Return-Path:
-----------------
--
----
-----
--------
Date: Mon, 14 Apr 2014 13:23:06 -0700
Message-Id: 201404142023.s3EKN6LQ016845@xxx.com>
From:
To:
Subject: WARNING :
X-Priority: 1
Content-type: text/html
X-Milter-Version: maste…