my $s = "\x{1234}\x{5678}";   # string with utf8 flag on

print unpack("H*", $s), "\n";

##</code><code>##

e188b4e599b8

##</code><code>##

3478