Select Code to Download

use strict;
use warnings;
...
    printf "Mask %3d:   %s => bit %d\n", $mask, $mstr, $bit;
    return $bit;
}

    my $bit = ($mask == ($num & $mask))? 1: 0