#!/usr/local/bin/perl
use strict;
use warnings;
my $s = ',=1,';
print "$s\n";
$s =~ s/(?>=^|,)=(.*?)(?=,|$)/\1/eg;
print "$s\n";