open my $IN, '<:encoding(UTF-8)', 'input.txt' or die $!;