Select Code to Download

#!/usr/bin/perl
use warnings;
...
$hex =~ s/\\x(..)/chr hex $1/ge;

say $korean eq $hex ? 'Same' : 'Different';

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

utf8::encode($korean);