長いタイトル・・・。

use Data::Dumper;
my $str = 'ABC';
my $jhan =
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
. "0123456789!\"#\$%&'*+,./:;<=>?\@[\\]^_`{|}~-";

my $jzen = “abcdefghijklmnopqrstuvwxyz”
. “ABCDEFGHIJKLMNOPQRSTUVWXYZ”
. “0123456789”
. “!”#$%&’*+,./:;<=>?@[¥]^_‘{|}~-”;

my $j = Jcode->new();
$j->set( $str , ‘euc’ );
my $convert = $j->tr( $jzen , $jhan );
とかして$convertをDumper()にかけると

素直に変換された文字列がdumper()されるわけじゃなく、

Jcodeにblessされたという内容が書き出される。

この値をファイルに保存したときにゃあ(>_<。)

スマートじゃないけど、

$convert = “” . $convert;

って書き加えたほうが良さげ。