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 ;
}