【Perl】偶数奇数判定しそれぞれ別ファイルに出力

use strict;
use warnings;
use utf8;
binmode STDIN, ‘:encoding(cp932)’;
binmode STDOUT, ‘:encoding(cp932)’;
binmode STDERR, ‘:encoding(cp932)’;

#入力ファイル
my $入力FILE = “IN.txt”;

#出力ファイル（偶数）
my $出力偶数FILE = “OUT_GUSU.txt”;
#出力ファイル（奇数）
my $出力奇数FILE = “OUT2_KISU.txt”;

#入力ファイルをオープンする
open(入力FILE, “<$入力FILE”) or die(“error :$!”);

#出力ファイルをオープンする
open(出力偶数FILE, “>$出力偶数FILE”) or die(“error :$!”);
open(出力奇数FILE, “>$出力奇数FILE”) or die(“error :$!”);

#ファイルを１行ずつ読み込む
while (my $line = <入力FILE>){
　　#読み込んだデータでキーとなる項目を切取し取得
　　my $Key = substr($line, 1, 4);
　　if ($Key % 2 == 0) {
　　#キーが偶数の場合、偶数用のファイルに出力します
　　　　print 出力偶数FILE $line;
　　} else {
　　#キーが奇数の場合、偶数用のファイルに出力します
　　　　print 出力奇数FILE $line;
　　}
}

#入力ファイルをクローズします
close(入力FILE);

#出力ファイルをクローズします
close(出力偶数FILE);
close(出力奇数FILE);

print “ファイルの出力が完了しました”;