Select Code to Download

use re 'debug';
my $braces = qr/(?<braces>\{ ([^\{\}] | (?&braces))*? \} )/x;
...
  34: END (0)
anchored "{" at 0 floating "}" at 1..2147483647 (checking floating) mi
+nlen 2 
Freeing REx: "(?<braces>\{ ([^\{\}] | (?&braces))*? \} )"