У меня работает ровно такой макрос:

Sumo 08.07.2002 20:10

@replaceBR[str]
$result[^str.match[\n][g]{<br>}]

@unreplaceBR[str]
$result[^str.match[<br>][g]{
}]