# use 5.014;
# use warnings;
# use autodie;

$infile =  $ARGV[0];
$outfile =  $ARGV[1];

my ($max_tab,$nbr_tab,$valid_line,@max_b,@max_e);

open my $in_fh, '<', $infile;
open my $out_fh, '>', $outfile;

while(<$in_fh>) {
# print "$_\n";
    if (/[a-zA-Z0-9]/) {
        $valid_line++;
        $max_tab = 0;
        while (/\t+/g) {
#            print  $-[0], ' ', $+[0], ' ';
            $max_b[$max_tab] = $-[0] if $max_b[$max_tab] < $-[0] ;
            $max_e[$max_tab] = $+[0] if $max_e[$max_tab] < $+[0] ;

            print $max_b[$max_tab], ' ', $max_e[$max_tab], ' ', $max_tab, ' ';
            $max_tab++; 
        }
#        print "\n";
        $nbr_tab = $max_tab if $nbr_tab < $max_tab;
    }
}


# printing max number of TABs for each of the columns begin ($max_b) and end ($max_e) DEBUG
print "max begin\t: " ;
for ($x=0;$x<=$nbr_tab;$x++) {
    print $max_b[$x], ' ';
}
print "\nmax end\t\t: ";
for ($x=0;$x<=$nbr_tab;$x++) {
    print $max_e[$x], ' ';
}

seek $in_fh,0,0;

    while (<$in_fh>) {
        print $out_fh $_ =~ y/\t/\t/rs;
    }
close $in_fh;
close $out_fh;