Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...

say qq{Bit $_: }, vec( $vec, $_, 1 ) ? q{set} : q{not set}
   for 0 .. 79;

Select or download this

1001101010100101100000000000000000000000000000000000000000000000000000
+0000000000
Bit 0: set
...
Bit 77: not set
Bit 78: not set
Bit 79: not set