C:\>perl -e"print unpack q!H*!, chr 333"
c58d
C:\>perl -e"print ord chr 333"
333
C:\>perl -e"print chr 333"
Wide character in print at -e line 1.
+ì
C:\>perl -MEncode -e"print ord decode q!UTF-8!,encode q!UTF8!,chr 333"
333