например так:

Misha v.3 10.06.2003 13:46 / 10.06.2003 13:47

# не забываем подключить lib.p в котором есть метод ^nodeToStr[], 
# преобразующий элемент xnode в его строковое представление
@USE
lib.p


@main[]
$text[<blabla>
<text>
<h>11</h>
<p>222</p>
</text>
</blabla>]

# создаем объект xdoc, если данные в $text у нас пришли от пользователя/БД, 
# то не забываем использовать нужный taint/untaint
$doc[^xdoc::create{<?xml version="1.0" encoding="$request:charset" ?>$text}]

# получаем нинтересующий нас элемент, если у нас может быть несколько узлов text, 
# то используем не selectSingle, а просто select и получаем хеш элементов
$element[^doc.selectSingle[/blabla/text]]

# показываем формочку, не забывая про ^taint[html][]///
<form>
<textarea rows="8" cols="40">^taint[html][^nodeToStr[$element]]</textarea>
</form>