Select Code to Download

my @data = qw( 000- 0101 011- 1-0- );

my @expanded = map { (my $s = $_) =~ s/-/{0,1}/g; glob($s) } @data;

my @integers = map { oct "0b$_" } @expanded;