Select Code to Download

~~~ Human readable output of what is being generated ~~~~~~~~~~~~
Line1
Line2
...
4C 00 69 00 6E 00 65 00 34 00 0D 00 0A 00
                                 ^ byte missing from actual results
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

use strict;
use warnings;
...
open (my $output_fh2, ">:encoding(utf-16le)", 'Test_reg2.reg') 
    || die "Unable to create reg output file. $!";
print {$output_fh2} $string2 ;