Select Code to Download

#!/usr/bin/perl

use strict;
...
my @fields = split $split, $data;
my @expected = ( 1,2, "${token}0${token}", 4, 5 );
is_deeply \@fields, \@expected;

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

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