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 >