Select Code to Download

sub unescape_entities {
    my $html = shift;
...
    $tree->delete;
    return @c;
}

use Sub::ScopeFinalizer qw( scope_finalizer );

...
    $tree->parse( decode_entities( $html->as_XML ) );
    return map "$_", $tmp->findnodes( '//body/*' );
}