Re: An Useless Cipher

[jwkrahn]

in reply to An Useless Cipher

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

Or simply:

    tr/01/10/ for @bits;