#!/usr/bin/perl

use strict;
use warnings; 
use Data::Dumper;
use Win32::TieRegistry( Delimiter => '/' );

my $value = $Registry->{ "HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Group Policy" } ;
print Dumper $value;