my $regex = '(?<!\\\),';
split( /$regex/, "$text" );