Select Code to Download

my $input = 'fragments.txt';
my %split;
...
    $split{$cnt++} = [$start .. $end] if $gap >= 2;
          $old     =  $line;
}