(??{CODE})

##</code><code>##

$np = qr{
          \{
          (?:
             (?> [^{}]+ )
           |
             (??{ $np })
          )*
          \}
        }x;