#!/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 );
[download]

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