Select Code to Download

Select or download this

    String               Substrings          Desired Result
1.CCCATCTGTCCTTATTTGCTG  ATCTG ATTTG        CCC[ATCTG]TCCTT[ATTTG]CTG
2.ACCCATCTGTCCTTGGCCAT   CCATC              AC[CCATC]TGTCCTTGGCCAT
3.CCACCAGCACCTGTC        CCACC CCAGC GCACC  [CCACCAGCACC]TGTC   *
4.CCCAACACCTGCTGCCT      CCAAC ACACC        C[CCAACACC]TGCTGCCT *

Select or download this

#!/usr/bin/perl -w
use strict;
...
      print "$str\n";
    return ;
}