use utf8;

###　まず、使う変数を定義しよう
$YorN = 'N';
while($YorN eq 'N') #選択がＮでない限り繰り返す
    {
        ### 1: 一つ目の数字をもらう
        ### 2: もう一つをもらう
        ### 3: やりたいことをもらう
        ### 4: 処理して表示する
        ### 5: 続けたいかどうか（ＹかＮ）を聞く

        print "一つ入れてください\n";
        $a = <>;

        print "もう一つ入れてください\n";
        $b = <>;

        print "やりたいことを教えてください 1: + 2: - 3: * 4: /\n";
        $op = <>;

        if    ($op == 1) { print $a + $b, "\n"; }
        elsif ($op == 2) { print $a + $b, "\n"; }
        elsif ($op == 3) { print $a + $b, "\n"; }
        elsif ($op == 4) { print $a + $b, "\n"; }
        else             { print "1~4以外はいれるんじゃねぇ！\n"; }

        print "ありがとうございます、結果はこれです\nまたやってみますか？ Y/N\n";
        $YorN = <>;
    }