Some text matching questions

[Vendetta]

Using what I've learned from the pink/red example, I've been trying to find a solution to my other original question (replacing exclamation points with periods), and I still can't get anything to work that doesn't destroy javascript and comments. The closest to success has been this one:

Code:

Match = (<$SET(open=1)|>$SET(open=))PrxNeverMatch
        |
        ([a-z0-9])\2
        !
       (\s|?)
        \1
        (^$TST(open=1))
Replace = \2.\1

It's clearly modeled on the red/pink filter, but the ones I created from scratch were disasters. The above example does seem to preserve javascript and comments, and it replaces many "!"s, but some are left untouched, including ones at the end of paragraphs, in header text, and consecutive exclamation points.