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__
{ ... }
{ { } }
{ { { } } }
{ { } { { { } } } }
{ ... }