Kludgey in the extreme, but this works...

$_ = 'this,is\,a,string';

s/\\,/\x0/g;

foreach (split /,/) {
    s/\x0/\\,/;
    print "$_\n";
}
[download]

Cē