$some_value  = split (/.*\=,|.*\=\n$/, $some_scalar);