Help for this page

Select Code to Download


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