sub get_first_elements_of_string { my ($first) = split ' ', $_[0], 2; return $first; }