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