Select Code to Download

open( $fh, "<:encoding(UTF-16)", $filename );

s/\x{feff}//;

open( I, "<:encoding(UTF-16)", $ARGV[0] ) or die "$ARGV[0]: $!";
local $/;
...
open(O,">:encoding(UTF-16):crlf","$ARGV[0].new") or die "$ARGV[0].new:
+$!";

print O "$_\n" for ( @lines );