Help for this page
$value =~ s{%(?:\[([^\]%]+)\])?([^%]*)%}{ if ($2 eq '') { ... $INIhashref->{$1}{$2} } }ge;