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