#!/usr/bin/perl
#
# testing split
#
use warnings;
use strict;

while (<>) {
my @a=split (/\t/,$_);
my $val=scalar (@a);
print "$val '@a'\n";
}