my ( %hash ) = split /\s*[=,]\s*/, "apples=green,pears=brown,oranges=orange";

my ($string) = join(",", (map { my $a = "$_=$hash{$_}" }  keys(%hash)) );


print "[$string]\n";