(undef, undef, undef, $four) = split /\s+/, $_, 5;