Что-то вроде этого

Jk 10.08.2003 03:21

Можно так - в два этапа - match и replace

$str[Тут куча текста с абзацами]
$str[^str.match[^^(.*?)^$][g]{<para>$match.1</para>}]
$repl[^table::create[nameless]{^taint[^#0A]	</para><para>}]
$str[^str.replace[$repl]]
$str

а можно так - с одним матчем, но он работает хуже риплейса

$str[^str.match[(^^|\n)(.*)(\n|^$)][gm]{<para>$match.2</para>$match.3}]

---