$ perl -MXML::LibXML -le " $q = XML::LibXML::Element->new(q{q});  $q->removeChildNodes; $q->appendText(55);  print $q;"
<q>55</q>