Select Code to Download

Select or download this

#Given:
my $s5 ='CTGGGTATGGGT';           
my @a5 = qw(GTATG TGGGT);

Select or download this
```
C[TGGGTATGGGT]
```
Select or download this
```
CTGG[GTATGGGT]
```

Select or download this

$s5 = "CTGGGTATGGGT";
        TGGGT
...
                        |--- Only this two satisfy.
              TGGGT   --     Since it follows order 
                             and delim of the given array.

Select or download this

# Given:
my $s6 = 'AGGAACTTGCCTGTACCACAGGAAG'; 
my @a6 = qw( CAGGA AGGAA );

Select or download this
```
[AGGAA]CTTGCCTGTACCA[CAGGAA]G
```
Select or download this
```
AGGAACTTGCCTGTACCA[CAGGAA]G
```

Select or download this

# Given:
my $s7 = 'CAGGACTTGCCTGTACCACAGGAAG'; 
...

This answer would do:
CAGGACTTGCCTGTACCA[CAGGA]AG

Select or download this

# Given:
my $s8 = 'CAGGATTTGAGGAAGTACCACAGGAAG'; 
...

doesn't have to be this:
[CAGGA]TTTG[AGGAA]GTACCACAGGAAG

Select or download this

my $t1 ='CCCATCTGTCCTTATTTGCTG';  
my @ar1 = qw(ATCTG-3 ATTTG-13);
...

my $t8 = 'CAGGATTTGAGGAAGTACCACAGGAAG'; 
my @ar8 = qw( CAGGA-18 AGGAA-19 );

Select or download this

sub put_bracket_wth_idx 
{
...
    return $str;
}