#!/usr/bin/perl -l

$a="0101"; $b="1110";
print "$a & $b = " . ($a & $b);
print "$a | $b = " . ($a | $b);
print "$a ^ $b = " .(($a ^ $b) | "0000"); # this one is a little tricky

__OUTPUT__
0101 & 1110 = 0100
0101 | 1110 = 1111
0101 ^ 1110 = 1011