use strict; use warnings; use XML::LibXML; use Data::Dumper; my $t = <<'EOF';

aaa

aaa

axxxdsfosdaa

aaa

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;