>>112
ワイド文字列をunpack 'H*'に食わせると各文字の下位8bitしか
出てこないので、俺はこんな感じの自作サブルーチン
使ってる。

sub hexdump {
my($s) = @_;

$s =~ s/(.)/sprintf "[%x]", ord($1)/ge;
return $s
}