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;