[perl]UTF8编码相关

use Data::Dumper;
use Encode;
$str = "\x{5FAE}\x{8F6F}\x{96C5}\x{9ED1}";
$str = Encode::encode("UTF-8", $str);
print Dumper $str;

输出： 
微软雅黑