Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
use warnings;
...
    printf "%s %s %s merged: %s\n", $chr, $lo, $hi, $merged + 1 if $me
+rged;
    #print "$chr $lo $hi\n" if $merged;
}

Select or download this
```
chr1 xx xx
chr2 xx xx
chr4 xx xx
...
```