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