#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

chomp( my $korean = <> );
chomp( my $hex    = <> );

$hex =~ s/\\x(..)/chr hex $1/ge;

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

##</code><code>##

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

##</code><code>##

utf8::encode($korean);