Select Code to Download

my ( $last, $two ) = $string =~ m/(\d+),(\d+)$/;

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