my ($first, undef, $third) = split ' ', $line;