Sounds like you need the MIME::Parser module. It's part of the MIME-tools bundle of modules.

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg