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