use Win32::TieRegistry;
use JSON -convert_blessed_universally;
$Registry->Delimiter("/");
my $entries = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Terminal Server/"};
$copy = from_json(to_json($entries, { allow_blessed => 1, convert_blessed => 1 }));