Select Code to Download

my $bal;
$bal = qr /[(]((?:(?>[^()]+)|(??{$bal}))*)[)]/;
...
        print "Name: $1; arguments: $2\n"     
    }
}

    foo (bar ())

    foo ("(");
    bar (")))");

    /* This works (really!) */