$grammar = q( file: section(s) section: header assign(s?) header: '[' /\w+/ ']' assign: pair comment(?) pair: /\w+/ '=' /\w+/ comment: /[\;\#]/ /\w+/ };