#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Lucene::QueryParser;

my $struct = parse_query('(A OR B AND (B OR C*))' );

print Dumper( $struct );