gistfile1.txt

ingy@thinkingy:~$ perl -MXXX -MPegex -e 'XXX pegex("src/testml-pgx/testml.pgx")->parse("A = 1;\nB = 2;\n")'
---
testml_document:
  - code_section:
      - assignment_statement:
          - variable_name:
              1: A
          - code_expression:
              - code_object:
                  number_object:
                    number:
                      1: 1
              - []
      - assignment_statement:
          - variable_name:
              1: B
          - code_expression:
              - code_object:
                  number_object:
                    number:
                      1: 2
              - []
  - data_section: []
...
  at -e line 1