#!/usr/bin/env perl

use strict;
use warnings;

my $var1 = 0b00010100;
my $var2 = 0b00000110;

my $fmt = "%08b\n";

print "Initial:\n";
printf $fmt, $var1;
printf $fmt, $var2;

for my $bit (0, 1, 4) {
    print "Bit $bit off:\n";
    $var1 &= ~(1 << $bit);
    printf $fmt, $var1;
    $var2 &= ~(1 << $bit);
    printf $fmt, $var2;
}