Select Code to Download

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

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