Как изменить ввод символа в шестнадцатеричный десятичный объект в XML::Twig с помощью Perl?

Question

Я новичок в Perl скрипте, я хочу преобразовать символьную сущность в шестнадцатеричную шестнадцатеричную сущность. Как я могу преобразовать этот файл с помощью модуля 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....