quoted_string: <perl_quotelike>
{
  my ( $name, $ldelim, $text, $rdelim ) = @{ $item[1] };
  if ( $name eq 'qq' ) {
    $text = eval 'qq' . $ldelim . $text . $rdelim;
  }
  # etc...
}