print "Enter some words (separated by spaces): >> ";
chomp(my $line = <STDIN>);

my @words = split /\s+/, $line;