DB<160> $line='HKEY_LOCAL_MACHINE\SOFTWARE\Vendor\Product\CurrentVersion\Tokens\Encotone\SerialNumberUserAttribute=12345'

  DB<161> ($path,$value)= split /=/, $line

  DB<162> $subhash=$hash={}

  DB<163> $subhash = $subhash->{$_} = {} for split /\\/,$path

  DB<165> $subhash->{value}=$value

  DB<166> $subhash->{LanMan}{value}=""

  DB<167> $subhash->{LanMan}{type}="REG_SZ"

#... and so on for all sub-entries ...

  DB<168>  $hash
 => {
  HKEY_LOCAL_MACHINE => {
        SOFTWARE => {
              Vendor => {
                    Product => {
                          CurrentVersion => {
                                Tokens => {
                                      Encotone => {
                                            "SerialNumberUserAttribute" => { LanMan => { type => "REG_SZ", value => "" }, value => 12345 },
                                          },
                                    },
                              },
                        },
                  },
            },
      },
}