sub unescape_entities {
    my $html = shift;
    my $tree = HTML::TreeBuilder::XPath->new;
    $tree->parse( decode_entities( $html->as_XML ) );
    my @c = map "$_", $tree->findnodes( '//body/*' );
    $tree->delete;
    return @c;
}