$foo =~ s/(?<= )( +)/' ' x length($1)/ge