This will return the fourth element of the split:

  my $start = (split / /, $data[146])[3];
[download]

I think that you might not be doing what you expected here:

my $start=(split(/ /,$data[146]),3);
#                               ^^
[download]

The last argument to split means that it will split to a maximum of three strings. If you are trying to get the fourth element, this won't help you.

perldoc -f split

</ajdelore>