$seq .= ', ';
my $rep = 1;
$rep++ while $seq =~ s/(.+?)\K\1//;