Although there might be something more straight forward, you might want to explore MIME::Entity. It is probably the best (but most detailed/involved way) to analyze/manipulate a message with attachments. The tricky part is determining whether or not you even have a message body text. As
podmaster points out, you can use Mail::MboxParser, which is useful/easy for getting the body text or determining if there is one (
example). Handling attachments is another matter and is not well documented in Mail::MboxParser.
That is where MIME::Entity might prove more useful. There is an example in the documentation showing how to "Muck about with the body data:" under "Manipulation examples". This will probably take a good bit of experimentation though.
--Jim