in reply to implicit split to @_ is deprecated

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

[download]

In Section Seekers of Perl Wisdom