##
#!/usr/bin/perl
use HTML::TreeBuilder::XPath;
use strict;
use warnings;
my $ent = HTML::TreeBuilder::XPath->new;
$ent->parse_file(\*DATA);
$ent->delete;
exit(0);
__DATA__
foo bar
foo
bar
(baz)