Select Code to Download

/^(.*?)(?:, \1)*\z/;
my $count = (length($_)+2)/(length($1)+2);

for (
   '1, 2, 5, 1, 2, 5, 1, 2, 5',
...
      print("$_: $count\n");
   }
}