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.