my $str = 'this,is\,a,string';

##</code><code>##

my @splits = split(/[^\\],/,$str);