$s = '\u805a\u5408\u6216\u8be6\u7ec6';
$s =~ s/u(\w\w\w\w)/x{$1}/g; 
$s = eval qq{"$s"};
print($s);