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