my $string = "a b c d e f";
my ($e1, $e2, $e3) = split /\s/, $string;

##</code><code>##

e1 = a
e2 = b
e3 = c

##</code><code>##

e3 = c d e f