$_ = 'w,ww,"a,bb,ccc,3 ,ee,",4';
@f=qw=,
-=;say join"",map{@f=@f[1,0]if/"/;/,/?$f[0]:$_}split//;
__END__
w,ww,"a-bb-ccc-3 -ee-",4