use Win32::TieRegistry( Delimiter=>"#", ArrayValues=>0 );
$Registry->Delimiter("/");
$Registry->{"LMachine/SOFTWARE/"} = {
    "Test/" => { "/" => "Das ist ein Test" }
};