$Profile="C:\\registry.reg"; # unicode file
$Param="Name";

open (FILE, "<:encoding(UTF-16)", $Profile);
@Lines = <FILE>;

open FILE, ">$Profile" or die $!;
@Lines = <FILE>;
close(FILE);

foreach $Lines (@Lines)
{
  if ($Lines =~ m/HKEY_LOCAL_MACHINE\\SOFTWARE\\$Param/g)
  {
   @LinesSub = split(/\\/,$Lines);
   $Lines =~ s/$Temp/$Param/g;
  }
  print FILE "$Lines";
}
close(FILE);