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

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