@words = split /\s+/, $readline;