You use Mail::IMAPClient to retrieve messages. To parse them you need another tool, take a look at MIME::Tools, it will do what you want. There is an example script, examples/mimeexplode that shows how to disassemble a multipart message.