#!/usr/bin/perl

use strict;
use warnings;
use Test::More qw/no_plan/;

my $token  = '-----';
my $data   = "1,2,${token}0${token},4,5";
my $split  = qr/(?<!$token),(?!$token)/;
my @fields = split $split, $data;
my @expected = ( 1,2, "${token}0${token}", 4, 5 );
is_deeply \@fields, \@expected;

##</code><code>##

@fields = (
  '1',
  '2,-----0-----,4',
  '5'
);

##</code><code>##

@fields = (
  '1',
  '2',
  '-----0-----',
  '4',
  '5'
);