my $key= join '\\',
        'Micr­osoft',
        'Win­dows NT',
        'Curren­tVersion',
        '­Terminal Server',
        'In­stall',
        'Sof­tware',
        'Mic­rosoft',
        'Wi­ndows',
        'Cur­rentVersio­n',
        'RunOnce­Ex';