$str = q!AND (random text) AND (more random text) AND (yet more)!;
   $str = q!OR (random text) OR (more random text) OR (yet more)!;

##</code><code>##

  while ($str =~ /\G(AND|OR)\s+(.+?)/g) {
     printf("%s %s\n", $1, $2);
  }
##</code><code>##

  while ($str =~ /\G(AND|OR)\s+(\(.+?\))/g) {
     printf("%s %s\n", $1, $2);
  }
##</code><code>##

   $str = q!AND (random text) AND (yet (more))!;