use strict;
use warnings;
use utf8;   # プログラム中にマルチバイト文字を利用するときに利用
use Encode; # マルチバイト文字を出力するときに利用

# 参考 https://twitter.com/6Lgug/status/1011529645559173120

# ハッシュテーブル（変換表）を用意する
my %hash = (
    '１' => 1,
    '２' => 2,
    '３' => 3,
    '４' => 4,
    '５' => 5,
    '６' => 6,
    '７' => 7,
    '８' => 8,
    '９' => 9,
    'a'   => 'A',
    'Ｂ' => 'B',
    'Ｃ' => 'C',
    'Ｄ' => 'D',
);

# ファイル下部の__DATA__以降から1行ずつ読む
for my $line (<DATA>) {
    chomp $line;

    # 正規表現でキャプチャ
    $line =~ /(\d)[年|ー]?(\w)組?/;

    my $year = 'DUMMY';

    # ハッシュテーブルを参照する
    # keyがあればvalueが返り、if文の条件が正となる
    if ( $hash{$1} ) {
        $year = $hash{$1};
    }
    else {
        # ハッシュテーブルにない場合には、
        # 半角と判断してそのまま代入する
        $year = $1;
    }

    my $class = 'DUMMY';
    if ( $hash{$2} ) {
        $class = $hash{$2};
    }
    else {
        $class = $2;
    }

    # 文字列を連結する
    my $edited = $year . "年" . $class . "組";
    # マルチバイト文字を出力するときはエンコード処理をする
    print encode ( 'utf8', $edited ), "\n";

}

__DATA__
1A
1ーB
１ーＣ
１ーＤ
１年E組
３年A組
３年Ｂ組
3年Ｃ組
3年Ｄ組
4年a組
４年B組
４年Ｃ組

use strict;
use warnings;
use utf8;  # プログラム中にマルチバイト文字を利用するときに利用
use Encode;# マルチバイト文字を出力するときに利用

# 参考 https://twitter.com/6Lgug/status/1011529645559173120

for my $line (<DATA>) {
    chomp $line;

    # tr演算子を使う
    $line =~ tr/０-９ａ-ｚＡ-Ｚa-z/0-9A-ZA-ZA-Z/;
    $line =~ tr/ー/年/;

    if ( $line =~ /[0-9]年[A-Z]組/ ) {
        # 何もしない
    }
    elsif ( $line =~ /(\d)年?(\w)/ ) {
        $line = "$1年$2組";
    }

    print encode('utf8',$line), "\n";
}

__DATA__
1A
1ーB
１ーＣ
１ーＤ
１年E組
３年A組
３年Ｂ組
3年Ｃ組
3年Ｄ組
4年a組
４年B組
４年Ｃ組

# 参考 https://twitter.com/6Lgug/status/1011529645559173120
1A
1ーB
１ーＣ
１ーＤ
１年E組
３年A組
３年Ｂ組
3年Ｃ組
3年Ｄ組
4年a組
４年B組
４年Ｃ組