$ perl -MXML::LibXML -E'
   my $node;
   {
      my $xml = "<root><foo><bar/></foo></root>";
      my $doc = XML::LibXML->new->parse_string($xml);
      ($node) = $doc->findnodes("//bar");
      $node->parentNode->removeChild($node);
   }
   {
      my $doc = $node->ownerDocument;
      say "owner=", $doc;
      if ($doc) { say $_->nodeName for $doc->findnodes("//*"); }
   }
'
owner=XML::LibXML::Document=SCALAR(0x817bcb8)
root
foo