[Perl] 文字のバイトコードを調べる

文字のバイトコードが知りたい時はこんな感じで出力。

my $string = q/あいうえお/;
print unpack("H*", $string);
# ワンライナーならこんな感じ
# perl -le 'print unpack("H*", $ARGV[0]);' 'あいうえお'

あとは正規表現で使うなりいろいろどうぞ。