...
print "Type a series of words, separated by spaces, ending with a return:\n";
my $words = <STDIN>;
chomp $words;

my @words = split (/ /, $words);
...