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