my $bin = pack("NH*", length($hex), $hex)
...
my ($length, $hex) = unpack('NH*', $bin);
substr($hex, $length, length($hex), '');