$korean =~ s/(.)/'\\x' . sprintf '%x', ord $1/ge;