$value =~ s{%(?:\[([^\]%]+)\])?([^%]*)%}{
            if ($2 eq '') {
                '%'
            } elsif ($1 eq '') {
                $INIhashref->{$sectionname}{$2}
            } else {
                $INIhashref->{$1}{$2}
            }
        }ge;