Select Code to Download

use strict;
use warnings;
...
print unpack ("b*",$olap),"\n\n";

print +(($bv1 & $bv2) eq $bv3 ? "don't overlap\n" : "overlap\n");

1  000000000001111111110000
2  00000000000000011111111111000000
...
------------------------------------------------------------
&  000000000000000111110000