my $tmp = (split...)[3];