open (my $fh, '<:encoding(ucs-2le)', $file) 

##</code><code>##

open (my $fh, '<:encoding(ucs-2be)', $file)