$str =~ s/\s\S*?$//;