use Data::Dumper;
use Parse::Balanced qw(parse_balanced is_balanced);

my $str = "05/04/2010 13:09:45 - A - somebody - ( ( my.my id >= 1 ) ) and ( ( is-relative.to code = 'sister' ) or ( is-relative.to code = 'brother' ) or ( is-mother.to code = 'dog' ) )";

# recursively parse opening and closing parentheses
my @tokens;
@tokens = ( "(", \@tokens, ")" );

# parse with a single branch
my @p = parse_balanced($str, \@tokens);
print Dumper \@p;

print "String is ", (is_balanced(@p) ? "" : "not "), "balanced.\n";

# break circular reference
@tokens = ();

__END__
$VAR1 = [
          '05/04/2010 13:09:45 - A - somebody - ',
          [
            '(',
            ' ',
            [
              '(',
              ' my.my id >= 1 ',
              ')'
            ],
            ' ',
            ')'
          ],
          ' and ',
          [
            '(',
            ' ',
            [
              '(',
              ' is-relative.to code = \'sister\' ',
              ')'
            ],
            ' or ',
            [
              '(',
              ' is-relative.to code = \'brother\' ',
              ')'
            ],
            ' or ',
            [
              '(',
              ' is-mother.to code = \'dog\' ',
              ')'
            ],
            ' ',
            ')'
          ]
        ];
String is balanced.