HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Office\\n.n #### my @office = $Registry->{"HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Office\\9.0\\Registration"}->SubKeyNames; print &getXPkey("HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Office\\9.0\\Registration\\$office[0]\\\\DigitalProductId");