my $s5 ='CCACCACCACCTGTC';        my @a5 = qw(CCACC);
put_bracket($s5,\@a5);            # should be [CCACCACCACC]TGTC