Help for this page
open(my $fh, '<:encoding(UTF-8)', $file);
open(my $fh, '<', $file); binmode($fh);