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