sub print_hex {
my ($str) = @_;
my @arr = split //, $str;
for my $c (@arr) {
printf "<%x>", ord($c);
}
printf "\n";
}

例子(文件是gbk编码的)
print_hex("中文");
print_hex(decode('gbk', "中文"));
print_hex(encode('utf8',decode('gbk', "中文")));


<4E2D><6587>
<96><87>