#!/bin/perl -w
use strict;
#(?:[^{}#]|(?:\\).)*
#(?: (?:\{2}+) (?:[^{}#]* | (?:\\.)) )*
my $re = qr'^ ( 
               { 
               (
                {                   
                (                     
                 (?:
                  (?> [^{}]+ )
                  |
                  (?2)
                 )*
                )
                }                     
               )*$
            )
          'x;
while (<>) {
  printf "%s\n", m{$re} ? "match" : "nomatch";
  /^q/ && exit;
}