my $reg;
use Win32::TieRegistry (
    Delimiter=>"/", ArrayValues=>1, TiedRef=>\$reg, ":REG_" );

...

my $val= $reg->{ "CUser/Software/Microsoft/Windows/CurrentVersion/"
               . "Policies/Explorer//NoDriveTypeAutoRun" };