#!/usr/bin/perl

use HTML::TreeBuilder::XPath;

use strict;
use warnings;

my $root = HTML::TreeBuilder::XPath->new;
$root->parse_file(\*DATA)
    or die("Could not parse the data: $!\n");
$root->eof();

my $xpath = '//div/p';

for my $d ($root->findnodes($xpath))
{
    print $d->as_trimmed_text,qq(\n) if (defined($d->as_text));
}

$root->delete;

exit(0);

__DATA__

<div><p>foo01<br />bar01</p></div>

<div>
    <p>
    foo02
    <br />
    bar02
    </p>
</div>

<div>
    <p>
    foo03
    <br />
    bar03
    <br /
    baz03
    </p>
</div>