Select Code to Download

C:\test>junk95 .
Use of uninitialized value $start in exists at C:\test\junk95.pl line 
+95, <IN2> line 8.
...
Use of uninitialized value $_ in concatenation (.) or string at C:\tes
+t\junk95.pl line 108, <IN2> line 8.
Use of uninitialized value $_ in concatenation (.) or string at C:\tes
+t\junk95.pl line 108, <IN2> line 8.
c9    1078    10008    -    TA                  0

#! perl -slw
use strict;
...
c1      19800   20000   9       -       AG
c9      10078   14008   9       -       AG
c9      1078    10008   123     -       TA