#!/usr/bin/perl -l

# https://www.perlmonks.org/?node_id=11105885

use strict;
use warnings;
use Data::Dumper; 

my @a = 1 .. 14;

my $buckets = 4;

my @buckets;

my $place = ',';

$_ = $place x ( @a + $buckets - 1 );

my $space = $buckets - 1;

my @bucket;

/
	(?(?{ $buckets <= pos }) (*ACCEPT) )
	(?{ @bucket = (); })
	(?: .{$space} $place
		(?{ push @bucket, ( pos ) - $buckets })
		)++
	(?{ push @buckets, [ @a[ @bucket ] ] })
	(*FAIL)
	/x;

print Dumper( @buckets );

##</code><code>##

$VAR1 = [
          1,
          5,
          9,
          13
        ];
$VAR2 = [
          2,
          6,
          10,
          14
        ];
$VAR3 = [
          3,
          7,
          11
        ];
$VAR4 = [
          4,
          8,
          12
        ];