if ($array[$i] eq '[') {
   $array[$i] = join ('', $array[$i],$array[$i+1],$array[$i+2]);
}


##</code><code>##

if ($array[$i] eq q{[}) { #etc...
if ($array[$i] eq "[") { #etc...