$str =~ s/ /+/g;  # use this one ;)