Select Code to Download

use Encode qw( encode_utf8 );

...
}{
   "0x" . uc(unpack("H*", encode_utf8(chr(hex($1)))))
}xe;

use Encode qw( decode_utf8 );

...
}{
   sprintf("U+%X", ord(decode_utf8(pack("H*", $1))))
}xe;