文字列を１６進でダンプする

以下のサブルーチンを使う

sub hex_string($) {
　my $string = shift;
　my @words = split(//, $string);
　my $hex_string = join(' ', map { sprintf( "%X", ord($_) ) } @words);
　$hex_string;
}

転載元 http://d.hatena.ne.jp/konbuizm/20091002/1254498028

使用例
print hex_string("テスト文字列\n");