use Encode;

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

$str=Encode::encode("utf8", $vall);
print $str;

##</code><code>##

\x{805a}\x{5408}\x{6216}\x{8be6}\x{7ec6}
\x{805a}\x{5408}\x{6216}\x{8be6}\x{7ec6}

##</code><code>##

\x{805a}\x{5408}\x{6216}\x{8be6}\x{7ec6}
¾ÛºÏ»òÏêϸ