use Encode;

$_ = "\u6b63";
$_ =~ s/\\u(.{4})/chr($1)/eg;
$char = "\x{$_}";
print "raw is $char \n";
print "decode is " . Encode::decode("unicode", $char). "\n";

__FAILED OUTPUT__
raw is
decode is