13:46 >perl -wMstrict -MData::Dump -E "my $foo = '123456789'; my @w1 = ($foo =~ /(?=(\d{3}))/g); dd \@w1;" [123, 234, 345, 456, 567, 678, 789] 13:46 > #### 17:56 >perl -wMstrict -MData::Dump -E "my $foo = '123456789012345'; my @w1 = ($foo =~ /(?=(\d{3})).{2}/g); dd \@w1;" [123, 345, 567, 789, 901, 123, 345] 18:09 >