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