Help for this page
(undef, undef, undef, $four) = split /\s+/, $_, 5;
$four = (split /\s+/, $_, 5) [3];