[Solved] separating array elements every 4 characters in array

Question

Please try this:

my @array = ("0x0B0x0C0x4A0x000x010x000x000x020");
my @outarray = map { (my $vars = $_) =~ s/\w{4}/$&\,/g; $vars; } @array ;
use Data::Dumper;
print Dumper @outarray;

Thanks to @derobert

Accepted Answer

Please try this:

my @array = ("0x0B0x0C0x4A0x000x010x000x000x020");
my @outarray = map { (my $vars = $_) =~ s/\w{4}/$&\,/g; $vars; } @array ;
use Data::Dumper;
print Dumper @outarray;

Thanks to @derobert