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