use strict;
my $a = "0" . "1011";
my $b = "10011";
print $a & $b, "\n";#00011
print $a | $b;#11011