Select Code to Download

{ # Place this block at the top of the grammar, before any rules.
   use Text::Balanced qw( extract_quotelike );
}

string: { [ $item[0], scalar extract_quotelike($text) ] }

{ # Place this block at the top of the grammar, before any rules.
   sub dequote_double {
...

string : /"(?:[^\\"]|\\.)*"/  {[ $item[0], dequote_double($item[1]) ]}
       | /'(?:[^\\']|\\.)*'/  {[ $item[0], dequote_single($item[1]) ]}