I am having trouble with getting text (CRLF specifically) to encode correctly into UTF-16 little endian. Essentially I am expecting this output below:

~~~ Human readable output of what is being generated ~~~~~~~~~~~~
Line1
Line2

Line4

~~~~~ Actual Results ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
4C 00 69 00 6E 00 65 00 31 00 0D 0A 00 
4C 00 69 00 6E 00 65 00 32 00 0D 0A 00 
0D 0A 00 
4C 00 69 00 6E 00 65 00 34 00 0D 0A 00

~~What was expected and is required for valid UTF-16LE encoding ~~~

4C 00 69 00 6E 00 65 00 31 00 0D 00 0A 00 
                                 ^ byte missing from actual results
4C 00 69 00 6E 00 65 00 32 00 0D 00 0A 00 
0D 00 0A 00                      ^ byte missing from actual results
   ^ byte missing from actual results     
4C 00 69 00 6E 00 65 00 34 00 0D 00 0A 00
                                 ^ byte missing from actual results
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[download]

I suspect this issue (or bug in Encode.pm?) may be due to \n being mappped to CRLF on windows whereas in *nix its just LF and Encode.pm and it's dependancies aren't handling that correctly.

I have tried numerous things, eg. using BE, UCS-2LE/BE, using \015\012 instead of \n - all seem to have the same issue.

1. Is this a bug, or am I doing something wrong?
2. Assuming I'm not doing something wrong, is there any way to code around this issue in Perl 5.8.8 (Encode.pm v2.23)?

Update2:

• When writing to a handle, the PerlIO layers are being applied from right-to-left, while when reading, they're being applied from left-to-right.
• Under windows, the default layers when adding ">:encoding(utf-16le)" to a filehandle become: unix crlf encoding(UTF-16LE) utf8. As per point above, that means that \n gets mapped to \015\012 after the encoding(UTF-16LE) layer has been applied.
• Using the specified layers: open (my $output_fh, ">:raw:perlio:encoding(utf-16le):crlf", 'file.txt' provides a means to move the :crlf layer into its correct position. Thanks ikegami!

use strict;
use warnings;

use Encode qw(encode decode);


### Actual Results
my $string = "Line1\nLine2\n\nLine4\n";    
open (my $output_fh, ">:encoding(utf-16le)", 'Test_reg.reg') 
    || die "Unable to create reg output file. $!";
print {$output_fh} $string ;   


### something else I tried, also doesn't work correctly.
my $string2 = "Line1\015\012Line2\015\012\015\012Line4\015\012";
open (my $output_fh2, ">:encoding(utf-16le)", 'Test_reg2.reg') 
    || die "Unable to create reg output file. $!";
print {$output_fh2} $string2 ;
[download]