--- /dev/null
+#!/usr/bin/perl
+
+my $delimiter = "\t";
+my $colcount = 11;
+
+my $running_field_count = 0;
+
+while (my $line = <>) {
+ chomp $line;
+ print $line;
+ my @f = split /$delimiter/, $line;
+ if (scalar(@f) != 1) {
+ $running_field_count += scalar(@f);
+ }
+ if ($running_field_count >= $colcount) {
+ $running_field_count = 0;
+ print "\n";
+ }
+}
+