Help for this page
use strict; use warnings; ... print $seg. "|" . $seg_start . "-" . $seg_end . "\n"; }
$ perl 11153140.pl BBBBBBBBBBBB|9-20 ... BBBBBBBBBBBBBB|63-76 BBBBBBBB|79-86 $