utf8フラグ

perl

Encode::decode

#!/usr/bin/perl

# utf8 で保存しとくこと

use strict;
use warnings;
use Data::Dumper;
use Encode;

my $input = "あ";

print Dumper($input); 
#=> $VAR1 = '縺・; バイト列

print Dumper( decode("utf8", $input) );
#=> $VAR1 = "\x{3042}"; 内部文字列(Unicode)

use utf8

#!/usr/bin/perl

# utf8 で保存しとくこと

use strict;
use warnings;
use Data::Dumper;
use utf8; # XXX

my $input = "あ"; # 内部文字列(Unicode)

print Dumper($input);
#=> $VAR1 = "\x{3042}";

参考