if(length $c[-1]) {
    # Now actually processing the preceding literal
    $big_pile .= $c[-1];

    $c[-1] =~ s/\\*'/\\'/g;
    push @code, " '$c[-1]',\n";
    $c[-1] = ''; # reuse this slot
  }