my $braces = qr/(?<braces> { (?: (?: [^{}] | (?&braces) )*+ )* } )/x;