Help for this page
if ($array[$i] eq '[') { $array[$i] = join ('', $array[$i],$array[$i+1],$array[$i+2]); }
if ($array[$i] eq q{[}) { #etc... if ($array[$i] eq "[") { #etc...