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