$input =~ s/( +)/length $1/ge;