open (my $fh2, '+>', $textfile2) or die "Cannot open file.$!";
my $str2 = decode('UTF-16', $out2, Encode::FB_CROAK);
print $fh2 $str2;
[download]

Simpler: open (my $fh2, '>:encoding(UTF-16)', $textfile2)

No, it seems you misread decode as encode.