Your step #1 was the ticket! Thanks AM. I was not first constructing a new text node.

The simple fix:

  $parentnode = $node -> parentNode;
  $txtnode = XML::LibXML::Text ->new($tmtext);
  $node = $parentnode -> replaceChild($txtnode, $node);
[download]