Select Code to Download

    for $j ( 0 .. $#bits ) {
        $bits[$j] =~ s/1/x/;
        $bits[$j] =~ s/0/1/;
        $bits[$j] =~ s/x/0/;
    }

    tr/01/10/ for @bits;