Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\wwe]
"binary"=hex:00,11
"dword"=dword:00000010
"multi-sz"=hex(7):66,00,69,00,72,00,73,00,74,00,20,00,6c,00,69,00,6e,00,65,00,\
  00,00,73,00,65,00,63,00,6f,00,6e,00,64,00,20,00,6c,00,69,00,6e,00,65,00,00,\
  00,74,00,68,00,69,00,72,00,64,00,20,00,6c,00,69,00,6e,00,65,00,00,00,00,00
"reg-sz"="string"
"expand-sz"=hex(2):25,00,70,00,61,00,74,00,68,00,25,00,00,00

##</code><code>##

"binary"=3:<one or two non-ASCII character displayed here>
"dword"=4:0x00000010
"multi-sz"=7:first<null delimiter here>line-second line<null delimiter here>third line<null delimiter here><null delimiter here>
"reg-sz"=1:string
"expand-sz"=2:%path%

##</code><code>##

use Modern::Perl;

use Win32::TieRegistry ( Delimiter=>'/', SplitMultis=>0, FixSzNulls =>1, ArrayValues => 0,
qw( REG_SZ REG_EXPAND_SZ REG_DWORD REG_BINARY REG_MULTI_SZ
    KEY_READ KEY_WRITE KEY_ALL_ACCESS ), );

my $reg_obj = $Registry->Open("LMachine/Software/wwe", { Access=>'KEY_READ' } )
  or die "Error: $^E\n";
  
foreach my $value ($reg_obj->ValueNames()) {
	my ($valuedata, $valuetype) = $reg_obj->GetValue( $value );
	my %valuetypes = (
	);
	say qq{"$value"=$valuetype:$valuedata};
}