$str =~ s/\s{2,}/ /g;