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