use Win32::TieRegistry( Delimiter=>"/" );

##</code><code>##

my $Reg;
use Win32::TieRegistry( Delimiter=>"/", TiedRef=>\$Reg );