sub put_bracket_wth_idx 
{
    my ( $str, $ar ) = @_;
    for my $subs ( @$ar ) 
    {
        my ($sb,$id) = split("-",$subs);
           
        if ( substr( $str, $id ) =~ /$sb/i ) 
        {
         substr( $str, $id, length $sb ) =~ tr/A-Z/a-z/;
        }
    }
    $str =~ s/([a-z]+)/[\U$1\E]/g;
    return $str;
}