Измените тег <br> на <?linebreak?> с помощью tcl tdom

У меня есть входная строка в формате html, которую необходимо проанализировать и записать в XML, совместимый с DITA.

Вход:

<p>Line with following newline<br>Line with two following newlines<br><br>Line with no following newline</p>

Желаемый результат:

<p>Line with following newline<?linebreak?>Line with two following newlines<?linebreak?><?linebreak?>Line with no following newline</p>

package require tdom

set xml {<p>Line with following newline<br>Line with two following newlines<br><br>Line with no following newline</p>}

puts "Input:"
puts "$xml"

set doc [dom parse -html -keepEmpties $xml]
set root [$doc documentElement]

foreach node [$root getElementsByTagName br] {
    $node delete
    #$node appendXML "<?linebreak?>"

}

puts "Output:"
puts [$doc asXML -indent none]

Если я раскомментирую #$node appendXML "<?linebreak?>", скрипт завершится неудачно. Я новичок в tdom, но не в tcl. Или....может быть, у кого-то есть другое представление о том, как сохранить разрывы строк в XML, особенно в DITA.