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