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

That's Perl though!
Thanks Again!

Beginning with perl 5.6.0 glob uses File::Glob which despite its name is not limited to be used on files.

Actually the argument to glob uses a little language of its own which describes the pattern to search for with meta-characters: (from the docs)

  \       Quote the next metacharacter
  []      Character class
  {}      Multiple pattern
  *       Match any string of characters
  ?       Match any single character
  ~       User name home directory

The metanotation a{b,c,d}e is a shorthand for abe ace ade. Left to rig
+ht order is preserved, with results of matches being sorted separatel
+y at a low level to preserve this order. As a special case {, }, and 
+{} are passed undisturbed.
[download]

blokhead (ab)uses this pattern-description language by replacing each '-' with {1, 0} to give that placeholder a possible value of 1 OR 0.

glob("1{1,0}1") will happily expand to 111 and 101, since unless you include a wildcard character (* or ?) or a character class in your pattern it will NOT go to the filesystem to give you back the list of files but rather expands immediately to all possible values which are allowed by the pattern. It seems to be a (useful) side-effect of the pre-filesystem lookup pre-processing of the pattern to expand {pat,pat,...} strings.

Updated: as per tye's comments

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

glob(1{1, 0}1) will happily expand to 111 and 101

To be clearer, make that glob("1{1,0}1") since my quotes and your space each make a big difference.

- tye