Thanks.

use Win32::TieRegistry( Delimiter=>"/" );
[download]

You should have spent 35 seconds reading the documentation. (:

Actually, I prefer the newer usage:

my $Reg;
use Win32::TieRegistry( Delimiter=>"/", TiedRef=>\$Reg );
[download]

Then use $Reg (or whatever you name your variable) instead of the old $Registry global that gets exported by default (for backward compatability with earlier versions).

Note that $Registry->{BASE.$f}­{Comments} is better written $fix->{$f}{Comments} or $fix->{"$f/Comments"}, since you've already got the BASE() key open.