use Win32::TieRegistry;

my $reg = Win32::TieRegistry->new();
$reg->Delimeter('/');

my $key = $reg->{"LMachine/Software/foo/"};
my $val = $key->{"/bar"};

$key->{"/bar"} = $val . "appended data";