Well, I'm not familiar with Win32::TieRegistry, but looking at your snippet I can guess that what you probably want is:

use Win32::TieRegistry;

$Registry->Delimiter("/");

$Registry->{"LMachine/SOFTWARE/Microsoft/Windows/CurrentVersion/Networ
+k/"}={
    "LanMan/" => {
        "VIRUSSCAN\$/" => {
            "/Flags" => [ "0x00000102",
                          "REG_DWORD",
                        ] 
            "/Parm1enc" => [ "",
                             "REG_BINARY",
                           ] 
            "/Parm2enc" => [ pack( "c5", map { hex $_ } qw( 1f b0 67 8
+c 79 )  ),
                             "REG_BINARY",
                           ] 
            "/Type" => [ "0x00000000",
                         "REG_DWORD",
                       ]

            "/Path" => "C:\\",
            "/Remark" => "Do Not Delete This Share"
        },
    },
};
[download]

I'm assuming that those are hex values you've got there. If they're not you'll have to tell me otherwise. I'll also note that I've never seen a hash where each key takes two values, but I'll assume that that is the nature of Win32::TieRegistry, and that you know what you are doing.

Update: I see code tags have been applied in the above post, and things make much more sense. I've modified my code to reflect the change.