use Sub::ScopeFinalizer qw( scope_finalizer );

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