fixed fenced langs

Author: aziz

Note-fenced.sublime-syntax

@@ -22,7 +22,7 @@ contexts:
     - include: fenced-lisp
     - include: fenced-matlab
     - include: fenced-obj-c
-    # - include: fenced-perl
+    - include: fenced-perl
     - include: fenced-php
     - include: fenced-python
     - include: fenced-r
@@ -31,7 +31,7 @@ contexts:
     - include: fenced-sass
     - include: fenced-scala
     - include: fenced-scss
-    # - include: fenced-shell
+    - include: fenced-shell
     - include: fenced-sql
     - include: fenced-tex
     - include: fenced-xml
@@ -256,19 +256,19 @@ contexts:
             2: meta.definition.language.raw.block.fenced.markdown
           pop: true
         - include: scope:source.objc
-  # fenced-perl:
-  #   - match: '((?:^|\G)\s*[`~]{3,})\s*(perl)\s*$'
-  #     captures:
-  #       1: punctuation.definition.raw.block.fenced.markdown
-  #       2: meta.definition.language.raw.block.fenced.markdown
-  #     push:
-  #       - meta_scope: markup.raw.block.markdown markup.raw.block.fenced.markdown meta.language.perl
-  #       - match: '^(\1)[ \t]*(\n|$)'
-  #         captures:
-  #           1: punctuation.definition.raw.block.fenced.markdown
-  #           2: meta.definition.language.raw.block.fenced.markdown
-  #         pop: true
-  #       - include: scope:source.perl
+  fenced-perl:
+    - match: '((?:^|\G)\s*[`~]{3,})\s*(perl)\s*$'
+      captures:
+        1: punctuation.definition.raw.block.fenced.markdown
+        2: meta.definition.language.raw.block.fenced.markdown
+      push:
+        - meta_scope: markup.raw.block.markdown markup.raw.block.fenced.markdown meta.language.perl
+        - match: '^(\1)[ \t]*(\n|$)'
+          captures:
+            1: punctuation.definition.raw.block.fenced.markdown
+            2: meta.definition.language.raw.block.fenced.markdown
+          pop: true
+        - include: scope:source.perl
   fenced-php:
     - match: '((?:^|\G)\s*[`~]{3,})\s*(php)\s*$'
       captures:
@@ -373,19 +373,19 @@ contexts:
             2: meta.definition.language.raw.block.fenced.markdown
           pop: true
         - include: scope:source.scss
-  # fenced-shell:
-  #   - match: '((?:^|\G)\s*[`~]{3,})\s*(sh|shell|bash)\s*$'
-  #     captures:
-  #       1: punctuation.definition.raw.block.fenced.markdown
-  #       2: meta.definition.language.raw.block.fenced.markdown
-  #     push:
-  #       - meta_scope: markup.raw.block.markdown markup.raw.block.fenced.markdown meta.language.shell
-  #       - match: '^(\1)[ \t]*(\n|$)'
-  #         captures:
-  #           1: punctuation.definition.raw.block.fenced.markdown
-  #           2: meta.definition.language.raw.block.fenced.markdown
-  #         pop: true
-  #       - include: scope:source.shell
+  fenced-shell:
+    - match: '((?:^|\G)\s*[`~]{3,})\s*(sh|shell|bash)\s*$'
+      captures:
+        1: punctuation.definition.raw.block.fenced.markdown
+        2: meta.definition.language.raw.block.fenced.markdown
+      push:
+        - meta_scope: markup.raw.block.markdown markup.raw.block.fenced.markdown meta.language.shell
+        - match: '^(\1)[ \t]*(\n|$)'
+          captures:
+            1: punctuation.definition.raw.block.fenced.markdown
+            2: meta.definition.language.raw.block.fenced.markdown
+          pop: true
+        - include: scope:source.shell
   fenced-sql:
     - match: '((?:^|\G)\s*[`~]{3,})\s*(sql)\s*$'
       captures: