my $grammar = q {
  startrule: statement (endline statement)(s?)
  statement: print open text end
  print: "print"
  open: "'"
  text: /([^']*)/
  end: "'"
  endline: /(\n|\r)+/
};