#!/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;