my $inputString = "\x03\x04Hi\x43\x08Hello!";
my %myDict = unpack("(CC/AX2)*", $inputString . "00");
chop(%myDict); chop(%myDict);

print "$myDict{0x03}\n";  # "Hi"
print "$myDict{0x43}\n";  # "Hello!"