Something like this seems to work for printing the next \d+ characters after a numerical match:

/(\d+)(?{$' =~ m!(.{$1})!; print "$1\n"})/

Is this really the road you want to go down?