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