open(my $fh1, '<:encoding(cp1252)', 'file1.txt')
open(my $fh2, '<:encoding(UTF-8)', 'file2.txt')