1-8-single-brackets.perl

$x = '[^\(\)]';

while (<>) {
    print if /\($x*(\b$x*\b)$x*\)/;
}