Select Code to Download

my @data = qw( 000- 0101 011- 1-0- );
my @res = map expand( $_), @data;
...
    | ($x & ~$mask);      # restore masked bits from $x
}