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

##</code><code>##

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

##</code><code>##

my ($first, $third) = (split ' ', $line)[0, 2];