SHUT UP, Ghost-writer. Get over it!
I believe you can use $regsubex to do a looping instead of /while.