#!/usr/local/bin/perl -w
use strict;

my $key = "24" & "4";
print "Key: $key\n";

my $key2 = "2f" & "4";
print "Key2: $key2\n";

my $key3 = "24" & "04";
print "Key3: $key3\n";