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

  DB<5> x @w2
0  123
1  456
2  790