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

##</code><code>##

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