DB<6> @w3 = ( $foo =~ /(?=(\d{3}))/g ); DB<7> x @w3 0 123 1 234 2 345 3 456 4 567 5 679 6 790 DB<8> @w3 = ( $foo =~ /(?=(\d{3}))./g ); DB<9> !7 x @w3 0 123 1 234 2 345 3 456 4 567 5 679 6 790