かなり昔から自分用に使っている半角全角変換テーブル（英数記号用）。
CPANとかにモジュールがあるかもしれないけど、
まあコピペで済むので今後のためにここに載せておく。

my %h2z = (
"0" => "０", "1" => "１", "2" => "２", "3" => "３", "4" => "４",
"5" => "５", "6" => "６", "7" => "７", "8" => "８", "9" => "９",
"A" => "Ａ", "B" => "Ｂ", "C" => "Ｃ", "D" => "Ｄ", "E" => "Ｅ",
"F" => "Ｆ", "G" => "Ｇ", "H" => "Ｈ", "I" => "Ｉ", "J" => "Ｊ",
"K" => "Ｋ", "L" => "Ｌ", "M" => "Ｍ", "N" => "Ｎ", "O" => "Ｏ",
"P" => "Ｐ", "Q" => "Ｑ", "R" => "Ｒ", "S" => "Ｓ", "T" => "Ｔ",
"U" => "Ｕ", "V" => "Ｖ", "W" => "Ｗ", "X" => "Ｘ", "Y" => "Ｙ",
"Z" => "Ｚ", "a" => "ａ", "b" => "ｂ", "c" => "ｃ", "d" => "ｄ",
"e" => "ｅ", "f" => "ｆ", "g" => "ｇ", "h" => "ｈ", "i" => "ｉ",
"j" => "ｊ", "k" => "ｋ", "l" => "ｌ", "m" => "ｍ", "n" => "ｎ",
"o" => "ｏ", "p" => "ｐ", "q" => "ｑ", "r" => "ｒ", "s" => "ｓ",
"t" => "ｔ", "u" => "ｕ", "v" => "ｖ", "w" => "ｗ", "x" => "ｘ",
"y" => "ｙ", "z" => "ｚ", " " => "　", "!" => "！", "\"" => "”",
"\#" => "＃", "\$" => "＄", "%" => "％", "&" => "＆", "'" => "’",
"(" => "（", ")" => "）", "*" => "＊", "+" => "＋", "," => "，",
"-" => "−", "." => "．", "/" => "／", ":" => "：", ";" => "；",
"<" => "＜", "=" => "＝", ">" => "＞", "?" => "？", "@" => "＠",
"[" => "［", "\\" => "¥", "]" => "］", "^" => "＾", "_" => "＿",
"`" => "‘", "{" => "｛", "|" => "｜", "}" => "｝", "~" => "〜",
);

# test
my $str = join("", map {$_.$h2z{$_}} keys %h2z);
print "$str\n";
$str =~ s{([\x20-\x7e])}{(defined $h2z{$1}) ? $h2z{$1} : $1}eg;
print "$str\n";

英数だけならこちらの方法が手軽です：
- [を] 半角アルファベット・数字を全角に「すぐに」変換[2005-12-10-2]