促音を大きな文字に変換したいです。
以下のようなコード書いたのですが、正規表現でなんとかもっと、すっきりできませんでしょうか？

sub _str_normarize {     
    my $str = shift;    
    $str =~ s/ァ/ア/g;    
    $str =~ s/ィ/イ/g;    
    $str =~ s/ゥ/ウ/g;    
    $str =~ s/ェ/エ/g;    
    $str =~ s/ォ/オ/g;    
    $str =~ s/ヵ/カ/g;    
    $str =~ s/ヶ/ケ/g;    
    $str =~ s/ッ/ツ/g;    
    $str =~ s/ャ/ヤ/g;    
    $str =~ s/ュ/ユ/g;    
    $str =~ s/ョ/ヨ/g;    
    $str =~ s/ヮ/ワ/g;    
    return $str;    
}