my $grammar = q {
	entry: chunk(s) eodata  { $item[1] }
	chunk: text | code
	text: m{[\w ]+} { qq(<div class="text">$item[1]</div>); }
	code: opencode codetext closecode {$item[2] }
	opencode:  m{<xxx>}
	closecode: m{</xxx>}
	codetext: m{[\w <\$]+(?=</xxx>)} { qq(<div class="code">) . CGI::escapeHTML($item[1]) . qq(</div>); }
	eodata:   m{^\Z}
};