sub balanced {
    (my $s = shift) =~ s/[^()]//g;
    eval "qw($s); 1"
}

##</code><code>##

sub balanced {
    my $s = shift =~ s/[^()]//rg;
    eval "qw($s); 1"
}