# test.pl

use strict;
use warnings;

use Data::Dumper qw( Dumper );
use Parser       qw( );

my $text = 'dogs OR cats OR "flying fish" OR (shrimp AND squid)';

my $parser = Parser->new();

print(Dumper($parser->parse($text)));