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"
},
},
};
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.