Select Code to Download

#!/usr/bin/env/perl
use strict;
...
printf "mask: %016b\n", $mask;
printf " set: %016b\n", $setBits;
printf " clr: %016b\n", $resetBits;

orig: 1010101010101010
 bit: 0000000000100000
mask: 0000000000011111
 set: 1010101010111111
 clr: 1010101010100000