while (<IN>) { 
    my $bits = unpack("b*", $_);
    $bits =~ s[(00|11)][ $1 eq '00' ? '11' : '00']ge;
    print OUT $bits;
}