Help for this page
open(my $data, '<:encoding(UCS-2le)', $file)
open(my $data, '<:raw:encoding(UCS-2le):crlf:utf8', $file)
read($data, my $bom='', 1); # Discard BOM.