use Win32::TieRegistry( Delimiter=>"#", ArrayValues=>0 );

$pound= $Registry->Delimiter("/");

$swKey= $Registry->{"HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Internet Explorer/"} or  die "Can't read LMachine/System/Disk key: $^E\n";

$data= $swKey->{"/Version"} or  die "Can't read LMachine/System/Disk//Information value: $^E\n";
  
print "\n........data::$data";