文字コードはutf8 tr($zen, $han)の中はEUC出ないとダメ(ハマッタ)
use Jcode;
use Encode;
my $zen = '０-９ （）';
my $han = '0-9 ';
Encode::from_to($zen, 'utf-8','euc-jp');
Encode::from_to($han, 'utf-8','euc-jp');
my $title= "デッドマン・ワンダーランド （１０）";
$title = jcode($title)->tr($zen, $han, 'd')->utf8;
print "TITLE:$title\n";
デッドマン・ワンダーランド 10
