#!/usr/bin/perl -w

use strict;
use warnings;


$a = 4;

print "\n ORIGINAL = $a";

$a &= 0xFFFB;    # 0xFFFB = 1111111111111011 binary

print "\nCLEAR BIT = $a";

$a |= 4;

print "\n  SET BIT = $a";

print("\n  XOR BIT = ", ($a ^ 0));

print("\n  XOR BIT = ", ($a ^ 0xF));

exit;