in reply to Substituting a comma only when it is preceded and followed by a bracket
my $l= ''; $s =~ s{([(,)])}{ my $n= ',' eq $1 && '(' eq $l ? ';' : $1; $l= $1 if ',' ne $1; $n }ge
- tye
In Section
Seekers of Perl Wisdom
in reply to Substituting a comma only when it is preceded and followed by a bracket
my $l= ''; $s =~ s{([(,)])}{ my $n= ',' eq $1 && '(' eq $l ? ';' : $1; $l= $1 if ',' ne $1; $n }ge
- tye