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

##</code><code>##

  $four = (split /\s+/, $_, 5) [3];