Re: Splitting a string and pushing it into an array

[choroba]

Your expected output is wrong (a quote missing, an extra double quote, and a missing comma).

For a solution, look at split: if the separator pattern uses capturing, it will be included in the result:

#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 1;

my $string = "/3212/2344,4334,XYZ&54,32/4333%3343%12";
my @array = do {
    no warnings 'qw';
    qw(/ 3212 / 2344 , 4334 , XYZ & 54 , 32 / 4333 % 3343 % 12);
};

my @ar = split m{([/&%,])}, $string;
shift @ar if $string =~ m{^[/&%,]}; # Leading separators might cause p
+roblems.
is_deeply(\@ar, \@array, 'ok');