HI, Thanks I used this and it worked fine.

my $xml = 'XML::LibXML'->load_xml(string => $response_xml);
for my $username ($xml->findnodes('//username')) {
    print $username->textContent, "\n";
}
[download]

Yes the xml was badly formed I copied a long string and just pasted a few rows as an example. Thanks for your help.