fork download
copy 
  1. $_=<<'_EOS_';
  2. string1=injunct! alter ego."
  3. string2=successor "alter ego" single employer"  "proceeding "citation assets"
  4. _EOS_
  5.  
  6. s/("(?=\S)[^"]*(?<=\S)")|"/$1/g;
  7.  
  8. print;
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
string1=injunct! alter ego.
string2=successor "alter ego" single employer  proceeding "citation assets"
https://ideone.com/ZdySA
language:
Perl (perl 5.28.1)
created:
13 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!