$_ = "val\t\t\t";
my @a = split /\t/, $_, 4;
print scalar( @a), $/;