Perl 全角ひらがなから全角カタカナへの変換

sub hiragana2katakana {
local($_) = @_;
s/\xa5\xa4/`/g;
s/\xa4([\xa1-\xfe])/\xa5$1/g;
s/`/\xa5\xa4/g;
$_;
}
$katakana = hiragana2katakana($hiragana);

Thank you for reading this post, don't forget to subscribe!