my ($one, $two) = unpack('(h2)*', 'a1');
#print "$one | $two\n";
print "found 0x13\n" if ($one =~ '13' | $two =~ '13');