DB<36> @res = ( $str =~ /(2.):(1.):(0.)/g )

  DB<37> x @res
0  21
1  11
2  01
3  22
4  12
5  02
6  23
7  13
8  03
  DB<38>