steve@maezi ~/scratch >perl bit.pl orig: 11100111 flipped: 10100111