>perl -wMstrict -le
"my $file = 'a=b,c=d,e';
 $file =~ s/\=/\=/g;
 $file =~ s/\,/\,/g;
 print qq{unchanged: '$file'};
"
unchanged: 'a=b,c=d,e'