#!/usr/bin/env perl -T

use 5.010;
use strict;
use warnings;
use re qw{taint eval};

my $x = "3aaaa\nbbbb\nccccc\nddddd";

my @captures;

$x =~ /\A (\d+) ( (??{ '(.+?(?:\n|$))(?{ push @captures, $^N })' x $1 }) )/mx;

say '[1]', $1, '[1]';
say '[2]', $2, '[2]';
say '[', $_ + 3, ']', $captures[$_], '[', $_ + 3, ']' for 0 .. $#captures;