I found that HTML::TokeParser works great for this.

$parser = HTML::TokeParser->new(\$html_messege);
$wohtml = $parser->get_text("BODY");