use Parse::RecDescent;
use Data::Dumper;

$::RD_AUTOACTION = q { [ @item ] };


$grammar = q{
start: seq

seq: '(' seqstr(s) ')'

seqstr: seq | tagstr

tagstr: OZN ( seq | rijec )

OZN: /[A-Z.,?'*:`*]+ /
rijec: /[\w-?,:<*`*]+/
};

my $parser=Parse::RecDescent->new($grammar);
my $result = $parser->start("(SBARQ (WHADVP (WRB Where))(SQ (VBZ is)(NP (NNP Inoco))(VP (VBN based)))(. ?))");
print Dumper($result);