C:\temp\strawberry-perl-5.26.0.2-64bit-portable>perl ..\example_code_office12_3.pl

targetKey = 'Win32::TieRegistry=HASH(0x471ae8)'
generalKey = 'Win32::TieRegistry=HASH(0x4719c8)'
$VAR1 = bless( {
                 '/Xlstart' => 'XLSTART', #just a simple example without "\"
                 #... shortened
				 #This is what is searched for:
                 '/SharedTemplates' => 'G:\\OFFICE2007\\WORD7\\VORLAGEN',
                 # ... shortened
                 '/PasteOptions' => '0x00000001'
               }, 'Win32::TieRegistry' );			   
"/SharedTemplates" => >>G:\OFFICE2007\WORD7\VORLAGEN<<
"SharedTemplates" => >>G:\OFFICE2007\WORD7\VORLAGEN<<
"DoesNotExist" => >><undef><<
targetKey = 'Win32::TieRegistry=HASH(0x2561ec8)'
generalKey = 'Win32::TieRegistry=HASH(0x471ae8)'