Select Code to Download

<?xml version="1.0" encoding="ISO-8859-1"?>
<CHATTER>
...
<message user_id="170442" author="jdporter" time="20070105182217">
oh, sorry. yes, looks like [merlyn|he] is having a problem.</message>
</CHATTER>

#!/usr/bin/perl
use warnings;
...
    
    foreach my $node ($nodeset->get_nodelist) {
        print XML::XPath::XMLParser::as_string($node), "\n\n"; }

C:\Perl\bin>perl test.pl
 author="tye"
...


C:\Perl\bin>