#!/usr/bin/perl 

use strict;
use warnings;
use Carp;
use Data::Dump qw( dump );

use Search::QueryParser;

my $qp = Search::QueryParser->new(
    rxAnd => qr{AND|ET|UND|E}i,
    rxOr  => qr{OR|OU|ODER|O}i,
    rxNot => qr{NOT|PAS|NICHT|NON}i,

);

for my $query (@ARGV) {
    carp "query: $query";
    my $p = $qp->parse( $query, 1 );
    carp dump($p);
    carp "unparsed: " . $qp->unparse($p);
}