in reply to another split question
I have seen these variations:
(undef, undef, undef, $four) = split /\s+/, $_, 5; [download]
$four = (split /\s+/, $_, 5) [3]; [download]