Puedes hacerlo con el modulo Win32::Registry
Un ejemplo:
En Cpan hay mucha documentacion sobre este modulo
Un ejemplo:
Código [Seleccionar]
use Win32::Registry;
my $ietips;
$::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Tips", $ietips) or die "[*] No se pudo abrir Llave : $^E";
my ($tipo, $valor);
$ietips->QueryValueEx("18", $tipo, $valor) or die "No hay Tip #18: $^E";
print "Mira un Tip Aqui: $value\n";
En Cpan hay mucha documentacion sobre este modulo