open my $fh, '<:encoding(utf16le)', $filename;

##</code><code>##

s/^\x{feff}//