#!/usr/local/bin/perl

require './test2.pl';
use Encode;
use utf8;

my $text = "ＡＢＣＤ";
print &change($text),"\n";
--------------------------------
$ cat test2.pl

sub change {
my $text = $_[0];
$text =~ tr/Ａ-Ｚａ-ｚ０-９！”＃＄％＆’（）／．\x{3000}/A-Za-z0-9!\"\#$%&'\(\)\/\.\x{0020}/;
$text = encode('utf-8', $text);
return $text;
}
1;
--------------------------------
./test.pl
ＡＢＣＤ

なぜ？