parsing email to get required information using perl script


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
Date: Mon, 14 Apr 2014 13:23:06 -0700
Message-Id: <>
Subject: WARNING :
X-Priority: 1
Content-type: text/html
X-Milter-Version: master.31+4-gbc07cd5+
X-CLX-ID: 507038003
Reply-To: -----
X-Loop: ----
X-Sequence: 197227
Errors-to: -----
Precedence: bulk
X-no-archive: yes
List-Id: <---->

< Body of the email >

in log file we have lot of emails and we need to skip email's which has reply

I need below information


Email start with From at the start of the line

can any one help me with the sample code


To ask for code samples most communities ask for some proof of effort. We are quite happy to help find a bug or teach a concept, but whole code is asking us to short sell ourselves. Sometimes you can get some quick code on stack overflow.

I suggest reading the Modern Perl book to get started if you would like to learn: Otherwise i know that there are several contractors who would be happy to apply their talents.

Many people suggest is a good collection of modules designed to guide newcomer in very common programming tasks, email amongst many.

The suggested modern ProBook is also a good read for a newcomer. I also recommend as a good all-around resource. Best of luck, and I hope you pay forward the community with more blogs from the perspective of a newcomer to Perl who is learning I think a lot of people would really benefit from learning from your experience.


This site is for blogging about Perl. This is not a forum for asking questions.

Here are two alternative sites to post your question: StackOverflow and Perl Monks.

Leave a comment

About Yesh

user-pic new to Perl.