Thanks.  It can be fixed by being more specific in the match:

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