my @pairs;
while( $string =~ m/(\d+),(\d+)/g ) {
  push @pairs, [$1,$2];
}