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