#!/usr/bin/perl

use strict;
use warnings;

use Search::QueryParser;
use Data::Dumper;

my $s = 'site:www.cnn.com term2 -term3 +"my phrase" +(term4 term5)';

my $qp = new Search::QueryParser;
my $query = $qp->parse($s)  or die "Error in query : " . $qp->err;

print "QUERY: $s\n";
print Dumper($query);