$string =~ s/\s+/ /gs;