my ($e1, $e2, @e3) = split /\s/, $string;