my @array = split/(?:\\\\,)|(?:(?<!\\),)/, $string;