$str =~ s/\s//g;