あのお、教えてください。
正規表現でShift_JISの半角カナを全角カナに変換することは
できますでしょうか。
ちなみに最初は下記のようなのを書いてみたけど、Shift_JISの下位バイトに
半角カナに一致するコードが含まれることがあって失敗しました。

%han2zen = ( 'ｱ'=>'ア', …以下半角=>全角の対応 );
my $re_hankana = '[｡-ﾟ]';
my $re_dakuten = '[ﾞﾟ]';

#成功例
my $good = "(ﾟДﾟ)ﾊｧ?(ﾟДﾟ)ﾊｧ?";
$good =~ s/($re_hankana$re_dakuten?)/$han2zen{$1}/g;
print "$good\n";

#失敗例
my $bad = "(ﾟДﾟ)ほげ？(ﾟДﾟ)ほげ？";
$bad =~ s/($re_hankana$re_dakuten?)/$han2zen{$1}/g;
print "$bad\n";