my $xml = XML::LibXML->load_xml(string => $txt1);
my $xc = XML::LibXML::XPathContext->new($xml);
$xc->registerNs('foo', 'DAV:');
print "prop:\n";
print "$_\n" for $xc->findnodes('/foo:propfind/foo:prop');
print "propname:\n";
print "$_\n" for $xc->findnodes('/foo:propfind/foo:propname');