[SOLVED]Splitting a string and pushing it into an array

[baxy77bax]

Hi, a very basic question but I am admitting I have no idea how to solve it and i need it right now. I have a string :

my $string = "/3212/2344,4334,XYZ&54,32/4333%3343%12";

I need to push this string into an array using any of /&%, symbols as record separators. but i need those elements to be in my array as well . so :

my @array = ('/','3212','/,'2344',',','4334','XYZ','&','54',',','32',
+'/','4333','%','3343','%','12'");

should by my outcome.

Thank you in advance

UPDATE:

Thank you, I knew it was something simple but i somehow missed taht part

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