Select Code to Download

<xxx> $x < $y </xxx>

<div class="code"> $x &lt; $y </div>

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