use strict;
use warnings;
no  warnings   'once';

use feature    'say';
use List::Util 'reduce';


my $cgs = '100010111010100101011010000101011010111011110101001010101010';


sub substr_at { substr $_[0], $_[1], $_[2]-$_[1]; }


sub count_zeros {
  ( my $string, local $_ ) = @_;
  substr_at( $string, ( split )[1,2,1] ) =~ tr[0][];
}


say reduce { $a += count_zeros($cgs,$b) } 0, <DATA>;


__DATA__
junk 5  15
junk 23 59
junk 18 34
junk 10 20
junk 9  19
junk 40 49