my $re = '{{(?:[^{}]+|';
$re .= $re x ($nested) . "\b" . ')*}}' x ($nested + 1);