http://qs321.pair.com?node_id=783490


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;