sub balanced
{
        my $string = shift;
        my $stack  = 0;

        for my $index (0..length($string) - 1)
        {
                my $char = substr($string, $index, 1);
                if ($char eq '(')
                {
                        $stack++;
                } elsif ($char eq ')') {
                        $stack--;
                }