$string =~ s/(\s+)/ /gm;