c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my $s = '004abcdefgh009ABCDEFGHIJKLM010nopqrstuvwxyz';
 ;;
 my @captures = $s =~ m{ (\d\d\d) ((??{ qr{.{$^N}}xms })) }xmsg;
 dd @captures;
"
("004", "abcd", "009", "ABCDEFGHI", "010", "nopqrstuvw")