>>317
これ使えば？

$lang = tohex($from);
\x82\x7C
な感じに変換してくれる

sub tohex{
my $strs = shift;
my $n;
my $return;
$return = "";
for($n=0;$n<length($strs);$n++){
$return .= "\\x".uc(unpack("H2",substr($strs,$n,1)));
}
return $return;
}

たしかに日本語のShiftJISはダメっぽ
中国のGB2312が使いやすい