sub balanced {
    local $_ = shift;
    s/[^()]//g;
    eval "qw($_)";
    ! $@
}