open my $fh, '>:raw:encoding(UTF-16LE):crlf:via(File::BOM)', 'file.reg';