my $str = "05/04/2010 13:09:45 - A - somebody - ( ( my.my id >= 1 ) and ( is-mother.to code intersects afunc(val1,val2,val3,val4) and ( is-father.to code  intersects bfunc(val1,val2,val3,val4) )";

##</code><code>##

my $str = "05/04/2010 13:09:45 - A - somebody - ( is-mother.to code intersects afunc(val1,val2,val3,val4) )";

$VAR1 = [
          '05/04/2010 13:09:45 - A - somebody - ',
          [
            '(',
            ' is-mother.to code intersects afunc',
            [
              '(',
              'val1,val2,val3,val4',
              ')'
            ],
            ' ',
            ')'
          ]
        ];
String is balanced.

##</code><code>##

Result should be

my $str = "05/04/2010 13:09:45 - A - somebody - ( ( my.my id >= 1 )
 and ( is-mother.to code intersects afunc(val1,val2,val3,val4) and ( is-father.to code intersects bfunc(val1,val2,val3,val4) )";

my.my id >= 1
is-mother.to code intersects afunc(val1,val2,val3,val4)
is-father.to code intersects bfunc(val1,val2,val3,val4)