I'm sorry, I can't reconcile "the second two integer groups" with "the last two integer groups". Which is it that you want? And by "two integer groups" do you mean "groups of two integers"?

It seems like you want the final "152014379,152017677", in which case you could just say:

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

Or are you trying to get pairs?

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