$words += scalar(split(/\s+/, $_));