my ($n1, $n2) = $string =~ m/(\d+),(\d+)/;