chomp(my @words = (split /\s+/,(<STDIN>)));