Select Code to Download

use strict;
use warnings;
...

printf("orig:    %b\n", $num);
printf("flipped: %b\n", $flipped);

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