<?xml version="1.0" encoding="windows-1252"?>
<node id="487071" title="Re^3: Quoted Text rule for Parse::RecDescent?" created="2005-08-26 20:55:02" updated="2005-08-26 16:55:02">
<type id="11">
note</type>
<author id="107600">
TheDamian</author>
<data>
<field name="doctext">
Presumably now you've worked out that, to restrict it to quoted texts, you need something like:

&lt;code&gt;
    string: &lt;perl_quotelike&gt; 
                { my ($marker, $quote, $text) = @{$item[0]}[0..2];
                  !marker &amp;&amp; $quote =~ /['"]/ ? $text : undef
                }
&lt;/code&gt;       </field>
<field name="root_node">
485933</field>
<field name="parent_node">
486965</field>
</data>
</node>
