Find: \s{2,}
Replace: <--This is an invisible space.
But then you have to prettify everything.
This is one of those things that exclsively affects coder typography senses

something I don't fault you for.
I would like this to be in Beautify, but Kovid nixed that because crazy people might be using CSS to render consecutive whitespace.