in reply to Parsing a mail

You might want to try Email::Mime.

rlb3