my($node)  = $doc->findnodes($query);
die("Node not found") unless($node);
  $node->setData('394');