$string =~ s/(\S)\s(\S)/$1$2/g;