Looking for series in consecutive lines of a file

Select or download this

C10000035    12    C    4    ....^>.    HHFCC
C10000035    13    C    6    .....^>.    HHFFCC
...
C10000040    36    C    4    ......    IHFFFC
C10000040    37    C    6    ......    IHFFFC
C10000040    38    C    6    ......    IHFFFC

Select or download this


C10000035,13,15,3
...
C10000040,30,33,4
C10000040,37,38,2

Select or download this


#!/usr/bin/perl
...
        $positions[0],"\t",
        $positions[$count-2],"\t",
        $positions[$count-2]-$positions[0]+1,"\n";

Select or download this


C10000035    13    37    25

Select Code to Download