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