use strict;
use warnings;
use XML::LibXML;

my $t = <<'EOF';
...
<meta charset="UTF-8" />
...
EOF

my $dom = XML::LibXML->load_xml(string => $t);

print $_->to_literal . "\n" for $dom->findnodes('//div[@id="724"]/p');