http://www.perlmonks.org?node_id=487071


in reply to Re^2: Quoted Text rule for Parse::RecDescent?
in thread Quoted Text rule for Parse::RecDescent?

Presumably now you've worked out that, to restrict it to quoted texts, you need something like:
string: <perl_quotelike> { my ($marker, $quote, $text) = @{$item[0]}[0..2]; !marker && $quote =~ /['"]/ ? $text : undef }