I was wondering about the best way to get the structure of a list of matches.

i.e. /($re1)($re2)/g produces a list of paired matches but when processing with map or grep you need a counter to know which item you got

 grep {  } $str=~/($re1)($re2)/g

Thats not very scalable...

Does anybody know a nifty way to get a list of arrays returned, like in

do {my @a; push @a, [$1,$2] while $str=~/($re1)($re2)/g; @a }

???

some code examples:

  DB<16> $a=join "",0..3
 
  DB<17> x $a=~/(.)(.)/g
0  0
1  1
2  2
3  3
  DB<18> x do {my @a; push @a, [$1,$2] while $a=~/(.)(.)/g; @a }
0  ARRAY(0x8ed1a18)
   0  0
   1  1
1  ARRAY(0x8ed1ce8)
   0  2
   1  3
[download]