s/(,)|(".*?")/ $1 || $2 =~ s(,)( )gr /ge; #### s/(,)|(".*?")/ $1 || do { (my $s = $2) =~ s(,)( )g; $s } /ge;