#!/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)