my $data = do {local $/; <DATA>};

my $braces_re = qr/
	\{
	(?:
		(?> [^{}]+ )
	|
		# Use either (?PARNO) or (??{ code }).
		#(?R) 
		(??{ $braces_re })
	)*
	\}
/sx;

$data =~ s{($braces_re)}{
	my $len = length $1;
	"<$len> $1 </$len>"
}eg;

print $data;

1;

__DATA__
{ ... }
{ { } }
{ { { } } }
{ { } { { { } } } }
{ ... }

##</code><code>##

<7> { ... } </7>
<7> { { } } </7>
{ <7> { { } } </7> }
{ <3> { } </3> { <7> { { } } </7> } }
<7> { ... } </7>

##</code><code>##

<7> { ... } </7>
<7> { { } } </7>
<11> { { { } } } </11>
<19> { { } { { { } } } } </19>
<7> { ... } </7>

##</code><code>##

Global symbol "$braces_re" requires explicit package name at (re_eval 1) line 2.

##</code><code>##

my $braces_re;
$braces_re = qr/