in reply to Perl script to read a tab delimited text file

my @array;
while ( defined ( $_ = <DAT> ) ) {
  push @array, /\t*((?:[^\t]+\t+){3}(?:[^\t]+))/g;
}

[download]
Boris

In Section Seekers of Perl Wisdom