$text = '1,This is a problem->\\,B,2';

##</code><code>##

my $regex = qr/(?<!\\),|(?<=\\\\),/;