my $grammar = q{
  list : '(' item(s) ')' { $item[2] }
  item : list <commit>   { $item[1] }
       | word
  word : /[^()]*/  
};

##</code><code>##

my $grammar = <<'__END_OF_GRAMMAR__';

  list : '(' item(s) ')' { $item[2] }
  item : list <commit>   { $item[1] }
       | word
  word : /[^()]*/  

__END_OF_GRAMMAR__

##</code><code>##

my $grammar = <<'__END_OF_GRAMMAR__';
  {
    use strict;
    use warnings;
  }

  list : '(' item(s) ')' { $item[2] }
  item : list <commit>   { $item[1] }
       | word
  word : /[^()]*/  

__END_OF_GRAMMAR__

##</code><code>##

  list : item(s)
  item : '(' <commit> list ')' { $item[3] }
       | word
  word : /[^()]*/  

##</code><code>##

  list : item(s?)
  item : '(' <commit> list ')' { $item[3] }
       | word
  word : /[^()]+/