my $re = qr'^ ( 
               {
               (?<R>
                {                   
                (                     
                 (?:
                  (?> [^{}]+ )
                  |
                  (\q<R>)
                 )*
                )
                }                     
               )*$
            )
          'x;