(?<=(?<=\s)|^) may work for you though.
In reply to Re^6: regexp: removing extra whitespace by perlmax in thread regexp: removing extra whitespace by perlmax