Select Code to Download

    my( $id ) = $bitsIn =~ m[^#(.)\s*$] or die 'Bits ID missing';

    my $bits = chr(0); $bits x= 75e6;
    $bitsIn =~ m[(\d+)\s+(\d+)] and vec( $bits, $1, 1 ) = $2
        until eof( BITS ) or ( $bitsIn = <BITS> ) =~ m[^#];

    my $range = <RANGES>;
    until( eof( RANGES ) ) {
...
        print "$id ($1 .. $2) : $count";
        $range = <RANGES>
    }

#! perl -slw
use strict;
...
}
close BITS;
close RAANGES