perl 匹配中文和中文转码问题
记录一下，搞了好几天，呵呵
$str =~ s/([\x80-\xFF][\x80-\xFF])/sprintf("&#x%X;", ord decode("GBK", $1))/ego;