#!/usr/bin/perl --
use strict;
use warnings;
use HTML::TreeBuilder::XPath;
my $tree= HTML::TreeBuilder::XPath->new_from_content(<<'HTML');
HTML
# $tree->dump;
print $tree->as_HTML( '><&' => " " ), "\n";;
for my $br ( $tree->findnodes( '//div/p/br[1]' ) ){
$br->parent->splice_content(
$br->pindex,
int@{
$br->parent->content_array_ref
}
);
}
# $tree->dump;
print $tree->as_HTML( '><&' => " " ), "\n";;
__END__