$text = "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' ) )";

my $new = $text;
while ( 1 ) {
   $ind = index($new, ')');

   # Split the text at the first close parens
   $before = substr($new,0,$ind);
   $after = substr($new,$ind);
   last if ( $before eq "" );

   # Clean up the before string
   #  Remove everything up to and including the last open paren
   #  Remove any beginning or trailing spaces
   $before = substr($before,rindex($before,'(')+1);
   $before =~ s/^\s+//;
   $before =~ s/\s+$//;
   push(@list,$before);

   if ( $after =~ /\)/ ) {
      # Disgard chars up to the first open paren
      $after = substr($after,index($after,'(')+1);
      $new = $after;
      print "\n";
  } else {
     last;
  }
}

foreach my $i (@list) {
   print "--".$i."--\n";
}