Если через replace, то можно так:

Я 06.06.2005 20:47

$rep[^table::create[nameless]{^taint[^#0D^#0A]	<br>
^taint[^#0A]	<br>
^taint[^#20]	&nbsp^;
}]

$str[^XXXXX.replace[$rep]]