如何使用perl在XML :: Twig中将字符实体更改为十六进制实体？

Question

我是perl脚本的新手，我想将字符实体转换为hexa十进制实体..如何使用xml :: Twig模块转换此文件？

文件sample.xml：

    <?xml version="1.0"?>
    <root>
      <text>This testing&mdash;value.</text>
    </root>    

输出为：

    <?xml version="1.0"?>
    <root>
      <text>This testing&#x2014;value.</text>
    </root>    

如何在xml twig ....中包含此转换。