Select Code to Download

sub set_bit_offsets {
    my @bitmap = split //, unpack('b*', @_);
...
    }
    return @offset;
}

sub set_bit_offsets {
    my @bitmap = split //, unpack('b*', @_);
    return grep {$bitmap[$_]} 0..$#bitmap;
}