#   my $input = "(cvtype='problem') and (problem_description match '*') and ((problem_synopsis match 'FCSIM') or (problem_synopsis match 'ATTE')) and (create_time>time('06/01/2014 0:00:00')) and (create_time<time('09/30/2014 0:00:00'))";
   my $input = "(cvtype='problem') and (problem_description match '*')";

   print "Text: $input\n";
  
   my $grammar = q{
      startrule: expr
      expr: operand operation(s?)
         { $return = @{$item[2]} ? { $item[2], $item[1]} : $item[1]}
      operation: /and | or/ operand 
         { $return = { $item[1], $item[2] }}
      operand: '(' expr ')'
         { $return = $item[2] }
	 | term { $item[1]}
      term: /[\w\s=><\/:"'\*_]+/
 
      };

      my $parser = Parse::RecDescent->new($grammar);
      my $result = $parser->startrule($input) or die "Could Not Parse!\n";

      print Dumper $result;