main::(-e:1):   1
  DB<1> $foo = "123456790"

  DB<2> @w1 = ( $foo =~ /(\d{3})/g );

  DB<3> x @w1
0  123
1  456
2  790