A starting point may be MIME::Parser to pick apart the message, but it looks like you need something like HTML::Parser or HTML::TreeBuilder to pull out the text you need to process from an HTML document.