# read one line of input
my $line = <STDIN>;
# remove the line ending
chomp $line;

# then either
my ($foo, $bar, $baz, $quux) = split(/ +/, $line);

# or
my (@data) = split(/ +/, $line);

# the latter is better if you don't know how many elements you'll get
[download]