#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;
binmode STDOUT, ':utf8';

my $str = 'あいうえおぁぃぅぇぉ';
print $str, "\n";
$str =~ tr/ぁ-んヴ/ァ-ンヴ/;
print $str, "\n";