#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
use HTML::TreeBuilder::XPath;
my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse_content(<<'__HTML__');
<div id="ro">
<div id="goner">
</div>
shambo
</div>
__HTML__

my( $ro ) = $tree->findnodes( q{ //div[ @id = "ro" ] } );
$ro->detach;
$tree->eof;
$tree->delete;
undef $tree;
print "$ro\n";
print $ro->as_HTML, "\n";
$ro->findnodes( q{ //div[ @id = "goner" ] } )->shift->delete;
print $ro->as_HTML, "\n";
__END__
HTML::Element=HASH(0xd4dbc4)
<div id="ro"><div id="goner"></div> shambo </div>
<div id="ro"> shambo </div>