in reply to Parsing Subject and Body Of E-Mail Message
You may find Re: Stripping the text part alone from mail which provides a sample using MIME::Parser, a useful starting point.