Select Code to Download

start: tree
tree: '(' treestr(s) ')'
...
tagstr: TAG ( tree | word )
TAG: /[A-Z.]+ /
word: /[\w?]+/

#!/usr/bin/perl

...
my $result = $parser->start( \$text );
print $text, "\n";
print Dumper($result);