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');