#!/usr/local/bin/perl -w
use strict;

open(LINES, "possiblecodes2"); 
open(CODES, ">outputcodes2");

my @lines = <LINES>;
my $linein;

foreach $linein (@lines) {

    print CODES "######$linein";

    $_ = "000000\n";
    
    print CODES $_;
    
    my $iter;
    for($iter=0; $iter<63; $iter++) {
	my $col = substr($linein,$iter,1);
	my $colwait = $col-1;
	s/^([01]{$colwait})([01])([01]*)/
	    if ($2==0) {$1 . "1" . $3} else {$1 . "0" . $3};
	/eg;
	print CODES $_;
    }    
    
}