$rep++ while $seq =~ s/^((?:[^,]+, )+?)\K\1//;