This does not answer your primary inquiry, however extra XP to you if you can figure out why there is no xxx in this response (besides the one in this very sentence ;-).

my  $grammar = q^
    opencode:  m{<code>}
    closecode: m{</code>}
^;