Multiple characters including single quote in delimiter

Hello,
I need to replace the comma to something else between the single quote:

1aaa,bbb,'cc,cc','ddd',1
2aaa,bbb,'ccc','d,d',0

to

1aaa,bbb,'cc<comma>cc','ddd',1
2aaa,bbb,'ccc','d<comma>d',0

Can someone help? Thanks.

see this thread

I think perl magical regular expression is a good resolution for this kind of requirement.

while(<DATA>){
	s/,(?=[^']*',)/<COMMA>/g;
	print;
}
__DATA__
1aaa,bbb,'cc,cc','ddd,',1
2aaa,'b,bb,','ccc','d,d',0


__OUTPUT__
1aaa,bbb,'cc<COMMA>cc','ddd<COMMA>',1
2aaa,'b<COMMA>bb<COMMA>','ccc','d<COMMA>d',0