Select Code to Download

The following pattern matches a function foo() which may contain
balanced parentheses as the argument.
...
          )
        }x;

#!/bin/perl -w
use strict;
...
  printf "%s\n", m{$re} ? "match" : "nomatch";
  /^q/ && exit;
}

my $re = qr'^ ( 
               {
...
               )*$
            )
          'x;