Select Code to Download

chr10    94055    94554    2    2    1    1    0    23
chr10    95850    122380    2    2    1    1    0    15
...
chr10    255989    267134    1    1    1    65    0    25
chr10    255989    282777    1    1    1    14    0    23
chr10    264440    267134    1    1    1    1    0    25

chr10    94055    94554    2    2    1    1    0    21
chr10    94055    94743    2    2    1    1    0    20
...
chr10    255989    267134    1    1    1    29    0    24
chr10    255989    282777    1    1    1    15    0    23
chr10    267297    282777    1    1    1    44    0    24

chr    fivep    threep    strand    file1.tab    file2.tab
chr10    181500    225933    -    15    7
...
chr10    94055    94743    -    0    1
chr10    255989    267134    -    65    29
chr10    181243    196457    -    1    0

#!/usr/bin/perl
use strict;
...
        print join("\t",$chr,$fivep,$threep,"-",@{$output{$chr."\t".$f
+ivep."\t".$threep."\t".$strand}} ),"\n";
    }
}