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