parse

Red []

line: "The ##Test## word $$Kees$$ is $$Arie$$ nice ##Piet## word!" "$$"

parse line  [any [ [ [to "##" b1: (change/part b1 {<strong style="color: green">} next next b1)]
                     [to "##" b2: (change/part b2 {</strong>} next next b2)]]
                 | [ [to "$$" b1: (change/part b1 {<strong style="color: blue">} next next b1)]
                     [to "$$" b2: (change/part b2 {</strong>} next next b2)]]
                 ]
             to end]
print line