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