open my $fh, '>:encoding(UTF-16LE)', 'wwe-perl.reg';
print {$fh} "\x{FEFF}";
print {$fh} "Windows Registry Editor Version 5.00\n\n";
say {$fh} "[HKLM\\SOFTWARE\\WWE]";
close $fh;