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