use strict;
use warnings;
use XML::LibXML;
use Data::Dumper;
my $t = <<'EOF';
aaa22
22
22
aaa22
aaa22
aafsdfsdfa22
aaa33
aaa33
aaa33sdfsdfaom
aaa33
aaa33
aaa33
EOF
my $dom = XML::LibXML->load_html(
string => \$t,
recover => 1,
suppress_errors => 1,
);
my $xpath = '//div[@id="724"]/p';
print "$_\n" foreach $dom->findnodes($xpath)->to_literal_list;