Select Code to Download

"0123456789" =~ /(\d{3})/g;

main::(-e:1):   1
  DB<1> $foo = "123456790"
...
0  123
1  456
2  790

"0123456789" =~ /(?:(\d{3}))/g;

  DB<4> @w2 = ( $foo =~ /(?:(\d{3}))/g );

...
0  123
1  456
2  790