if ($word =~ /^\[/ && $word =~ /$\]/)