use strict;
use warnings;

my $keyToExport = "HKEY_LOCAL_MACHINE\\SOFTWARE\\Windows\\";
my @regeditCmd = (qw(regedit.exe /e "c:\\test.reg"),$keyToExport);

print " " . join(" ", @regeditCmd) . "\n";
print "-->" . system(@regeditCmd);