Select Code to Download

use strict;
use warnings;
...

    print $seg. "|" . $seg_start . "-" . $seg_end . "\n";
}

$ perl 11153140.pl 
BBBBBBBBBBBB|9-20
...
BBBBBBBBBBBBBB|63-76
BBBBBBBB|79-86
$