sub put_bracket
{
    my    ($str,$ar)    = @_;

    foreach my $subs ( @$ar  )
    {
      my $lsub = lc($subs);
      s/$lsub/$lsub/ig;
    }
    # add brackets
    $str =~ s/(?:(?<=[A-Z])|^)(?=[a-z])/[/g;
    $str =~ s/(?<=[a-z])(?:(?=[A-Z])|$)/]/g;
    # re-uppercase
    $str = uc($str);
    print "$str\n";
    return ;
}


##</code><code>##

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


##</code><code>##

sub put_bracket
{
    my    ($str,$ar)    = @_;

    foreach my $subs ( @$ar  )
    {
      my $lsub = lc($subs);
      do {} while ($str =~ s/(?!$lsub)(?i:$lsub)/$lsub/g);
    }
    # add brackets
    $str =~ s/(?:(?<=[A-Z])|^)(?=[a-z])/[/g;
    $str =~ s/(?<=[a-z])(?:(?=[A-Z])|$)/]/g;
    # re-uppercase
    $str = uc($str);
    print "$str\n";
    return ;
}


##</code><code>##

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/