ver 2010.02 → 2010.08

data/config/syntax/Pascal.rb

@@ -1,33 +1,33 @@
 # Encoding: UTF-8
 
 {fileTypes: ["pas", "p"],
- foldingStartMarker: /\b(?i:(function|package|procedure|try|type))\b/,
- foldingStopMarker: /\b(?i:(end))\b/,
+ foldingStartMarker: /\b(?i:(?<_1>function|package|procedure|try|type))\b/,
+ foldingStopMarker: /\b(?i:(?<_1>end))\b/,
  keyEquivalent: "^~P",
  name: "Pascal",
  patterns: 
   [{match: 
-     /\b(?i:(absolute|abstract|all|and|and_then|array|as|asm|attribute|begin|bindable|case|class|const|constructor|destructor|div|do|do|else|end|except|export|exports|external|far|file|finalization|finally|for|forward|goto|if|implementation|import|in|inherited|initialization|interface|interrupt|is|label|library|mod|module|name|near|nil|not|object|of|only|operator|or|or_else|otherwise|packed|pow|private|program|property|protected|public|published|qualified|record|repeat|resident|restricted|segment|set|shl|shr|then|to|try|type|unit|until|uses|value|var|view|virtual|while|with|xor))\b/,
+     /\b(?i:(?<_1>absolute|abstract|all|and|and_then|array|as|asm|attribute|begin|bindable|case|class|const|constructor|destructor|div|do|do|else|end|except|export|exports|external|far|file|finalization|finally|for|forward|goto|if|implementation|import|in|inherited|initialization|interface|interrupt|is|label|library|mod|module|name|near|nil|not|object|of|only|operator|or|or_else|otherwise|packed|pow|private|program|property|protected|public|published|qualified|record|repeat|resident|restricted|segment|set|shl|shr|then|to|try|type|unit|until|uses|value|var|view|virtual|while|with|xor))\b/,
     name: "keyword.control.pascal"},
    {captures: 
      {1 => {name: "storage.type.prototype.pascal"},
       2 => {name: "entity.name.function.prototype.pascal"}},
     match: 
-     /\b(?i:(function|procedure))\b\s+(\w+(\.\w+)?)(\(.*?\))?;\s*(?=(?i:attribute|forward|external))/,
+     /\b(?i:(?<_1>function|procedure))\b\s+(?<_2>\w+(?<_3>\.\w+)?)(?<_4>\(.*?\))?;\s*(?=(?i:attribute|forward|external))/,
     name: "meta.function.prototype.pascal"},
    {captures: 
      {1 => {name: "storage.type.function.pascal"},
       2 => {name: "entity.name.function.pascal"}},
-    match: /\b(?i:(function|procedure))\b\s+(\w+(\.\w+)?)/,
+    match: /\b(?i:(?<_1>function|procedure))\b\s+(?<_2>\w+(?<_3>\.\w+)?)/,
     name: "meta.function.pascal"},
    {match: 
-     /\b((0(x|X)[0-9a-fA-F]*)|(([0-9]+\.?[0-9]*)|(\.[0-9]+))((e|E)(\+|-)?[0-9]+)?)(L|l|UL|ul|u|U|F|f|ll|LL|ull|ULL)?\b/,
+     /\b(?<_1>(?<_2>0(?<_3>x|X)[0-9a-fA-F]*)|(?<_4>(?<_5>[0-9]+\.?[0-9]*)|(?<_6>\.[0-9]+))(?<_7>(?<_8>e|E)(?<_9>\+|-)?[0-9]+)?)(?<_10>L|l|UL|ul|u|U|F|f|ll|LL|ull|ULL)?\b/,
     name: "constant.numeric.pascal"},
    {captures: {1 => {name: "punctuation.definition.comment.pascal"}},
-    match: /(--).*$\n?/,
+    match: /(?<_1>--).*$\n?/,
     name: "comment.line.double-dash.pascal.one"},
    {captures: {1 => {name: "punctuation.definition.comment.pascal"}},
-    match: /(\/\/).*$\n?/,
+    match: /(?<_1>\/\/).*$\n?/,
     name: "comment.line.double-slash.pascal.two"},
    {begin: /\(\*/,
     captures: {0 => {name: "punctuation.definition.comment.pascal"}},

data/config/syntax/Perl HTML-Template.rb

@@ -3,10 +3,10 @@
 {fileTypes: ["tmpl"],
  firstLineMatch: "<(?i:TMPL)_.+?>",
  foldingStartMarker: 
-  /(<(?i:(head|table|tr|div|style|script|ul|ol|form|dl))\b.*?>|^ *<(?i:TMPL_(?:LOOP|UNLESS|IF))\b(?!.*<\/(?i:TMPL_(?:LOOP|UNLESS|IF))>))/,
+  /(?<_1><(?i:(?<_2>head|table|tr|div|style|script|ul|ol|form|dl))\b.*?>|^ *<(?i:TMPL_(?:LOOP|UNLESS|IF))\b(?!.*<\/(?i:TMPL_(?:LOOP|UNLESS|IF))>))/,
  foldingStopMarker: 
-  /(<\/(?i:(head|table|tr|div|style|script|ul|ol|form|dl))>|^ *<\/(?i:TMPL_(?:LOOP|UNLESS|IF)) *>)/,
- keyEquivalent: /^~H/,
+  /(?<_1><\/(?i:(?<_2>head|table|tr|div|style|script|ul|ol|form|dl))>|^ *<\/(?i:TMPL_(?:LOOP|UNLESS|IF)) *>)/,
+ keyEquivalent: "^~H",
  name: "Perl HTML-Template",
  patterns: [{include: "#tmpl-container-tag"}, {include: "text.html.basic"}],
  repository: 
@@ -16,7 +16,7 @@
       [{captures: 
          {1 => {name: "punctuation.definition.constant.html"},
           3 => {name: "punctuation.definition.constant.html"}},
-        match: /(&)([a-zA-Z0-9]+|#[0-9]+|#x[0-9a-fA-F]+)(;)/,
+        match: /(?<_1>&)(?<_2>[a-zA-Z0-9]+|#[0-9]+|#x[0-9a-fA-F]+)(?<_3>;)/,
         name: "constant.character.entity.html"},
        {match: /&/, name: "invalid.illegal.bad-ampersand.html"}]},
    :"html-template-stuff" => 
@@ -28,7 +28,7 @@
        {include: "#string-single-quoted"},
        {include: "#keyword"}]},
    keyword: 
-    {match: /\b([A-Za-z0-9_]+)/, name: "string.unquoted.html-template"},
+    {match: /\b(?<_1>[A-Za-z0-9_]+)/, name: "string.unquoted.html-template"},
    :"string-double-quoted" => 
     {begin: /"/,
      beginCaptures: 

data/config/syntax/Perl.rb

@@ -3,8 +3,8 @@
 {comment: "\n\tTODO:\tInclude RegExp syntax\n",
  fileTypes: ["pl", "pm", "pod", "t", "PL"],
  firstLineMatch: "^#!.*\\bperl\\b",
- foldingStartMarker: /(\/\*|(\{|\[|\()\s*$)/,
- foldingStopMarker: /(\*\/|^\s*(\}|\]|\)))/,
+ foldingStartMarker: /(?<_1>\/\*|(?<_2>\{|\[|\()\s*$)/,
+ foldingStopMarker: /(?<_1>\*\/|^\s*(?<_2>\}|\]|\)))/,
  keyEquivalent: "^~P",
  name: "Perl",
  patterns: 
@@ -23,7 +23,7 @@
       2 => {name: "punctuation.definition.string.perl"},
       3 => {name: "keyword.control.regexp-option.perl"}},
     patterns: 
-     [{begin: /(qr)\s*\{/,
+     [{begin: /(?<_1>qr)\s*\{/,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
@@ -33,7 +33,7 @@
         [{include: "#escaped_char"},
          {include: "#variable"},
          {include: "#nested_braces_interpolated"}]},
-      {begin: /(qr)\s*\[/,
+      {begin: /(?<_1>qr)\s*\[/,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
@@ -43,7 +43,7 @@
         [{include: "#escaped_char"},
          {include: "#variable"},
          {include: "#nested_brackets_interpolated"}]},
-      {begin: /(qr)\s*</,
+      {begin: /(?<_1>qr)\s*</,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
@@ -53,7 +53,7 @@
         [{include: "#escaped_char"},
          {include: "#variable"},
          {include: "#nested_ltgt_interpolated"}]},
-      {begin: /(qr)\s*\(/,
+      {begin: /(?<_1>qr)\s*\(/,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
@@ -63,14 +63,14 @@
         [{include: "#escaped_char"},
          {include: "#variable"},
          {include: "#nested_parens_interpolated"}]},
-      {begin: /(qr)\s*\'/,
+      {begin: /(?<_1>qr)\s*\'/,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
        end: "\\'",
        name: "string.regexp.compile.single-quote.perl",
        patterns: [{include: "#escaped_char"}]},
-      {begin: /(qr)\s*([^\s\w\'\{\[\(\<])/,
+      {begin: /(?<_1>qr)\s*(?<_2>[^\s\w\'\{\[\(\<])/,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
@@ -85,7 +85,7 @@
          {include: "#variable"},
          {include: "#nested_parens_interpolated"}]}]},
    {applyEndPatternLast: 1,
-    begin: /\b(?=(?<!\&)(s)(\s+\S|\s*[;\,\#\{\}\(\)\[<]|$))/,
+    begin: /\b(?=(?<!\&)(?<_1>s)(?<_2>\s+\S|\s*[;\,\#\{\}\(\)\[<]|$))/,
     comment: "string.regexp.replace.perl",
     end: "((([egimosx]*)))(?=(\\s+\\S|\\s*[;\\,\\#\\{\\}\\)\\]>]|$))",
     endCaptures: 
@@ -93,28 +93,28 @@
       2 => {name: "punctuation.definition.string.perl"},
       3 => {name: "keyword.control.regexp-option.perl"}},
     patterns: 
-     [{begin: /(s)\s*\{/,
+     [{begin: /(?<_1>s)\s*\{/,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
        end: "\\}",
        name: "string.regexp.nested_braces.perl",
        patterns: [{include: "#escaped_char"}, {include: "#nested_braces"}]},
-      {begin: /(s)\s*\[/,
+      {begin: /(?<_1>s)\s*\[/,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
        end: "\\]",
        name: "string.regexp.nested_brackets.perl",
        patterns: [{include: "#escaped_char"}, {include: "#nested_brackets"}]},
-      {begin: /(s)\s*</,
+      {begin: /(?<_1>s)\s*</,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
        end: ">",
        name: "string.regexp.nested_ltgt.perl",
        patterns: [{include: "#escaped_char"}, {include: "#nested_ltgt"}]},
-      {begin: /(s)\s*\(/,
+      {begin: /(?<_1>s)\s*\(/,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
@@ -158,13 +158,14 @@
        end: "'",
        name: "string.regexp.format.single_quote.perl",
        patterns: [{match: /\\['\\]/, name: "constant.character.escape.perl"}]},
-      {begin: /([^\s\w\[({<;])/,
+      {begin: /(?<_1>[^\s\w\[(?<_2>{<;])/,
        captures: {0 => {name: "punctuation.definition.string.perl"}},
        end: "\\1",
        name: "string.regexp.format.simple_delimiter.perl",
        patterns: [{include: "#escaped_char"}, {include: "#variable"}]},
       {match: /\s+/}]},
-   {begin: /\b(?=s([^\s\w\[({<]).*\1([egimos]*)([\}\)\;\,]|\s+))/,
+   {begin: 
+     /\b(?=s(?<_1>[^\s\w\[(?<_2>{<]).*\k<_1>(?<_3>[egimos]*)(?<_4>[\}\)\;\,]|\s+))/,
     comment: "string.regexp.replaceXXX",
     end: "((([egimos]*)))(?=([\\}\\)\\;\\,]|\\s+|$))",
     endCaptures: 
@@ -172,7 +173,7 @@
       2 => {name: "punctuation.definition.string.perl"},
       3 => {name: "keyword.control.regexp-option.perl"}},
     patterns: 
-     [{begin: /(s\s*)([^\s\w\[({<])/,
+     [{begin: /(?<_1>s\s*)(?<_2>[^\s\w\[(?<_3>{<])/,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
@@ -185,12 +186,12 @@
        name: "string.regexp.replaceXXX.format.single_quote.perl",
        patterns: 
         [{match: /\\['\\]/, name: "constant.character.escape.perl.perl"}]},
-      {begin: /([^\s\w\[({<])/,
+      {begin: /(?<_1>[^\s\w\[(?<_2>{<])/,
        captures: {0 => {name: "punctuation.definition.string.perl"}},
        end: "\\1",
        name: "string.regexp.replaceXXX.format.simple_delimiter.perl",
        patterns: [{include: "#escaped_char"}, {include: "#variable"}]}]},
-   {begin: /\b(?=(?<!\\)s\s*([^\s\w\[({<]))/,
+   {begin: /\b(?=(?<!\\)s\s*(?<_1>[^\s\w\[(?<_2>{<]))/,
     comment: "string.regexp.replace.extended",
     end: "\\2((([egimos]*x[egimos]*)))\\b",
     endCaptures: 
@@ -198,7 +199,7 @@
       2 => {name: "punctuation.definition.string.perl"},
       3 => {name: "keyword.control.regexp-option.perl"}},
     patterns: 
-     [{begin: /(s)\s*(.)/,
+     [{begin: /(?<_1>s)\s*(?<_2>.)/,
        captures: 
         {0 => {name: "punctuation.definition.string.perl"},
          1 => {name: "support.function.perl"}},
@@ -210,7 +211,7 @@
        end: "'(?=[egimos]*x[egimos]*)\\b",
        name: "string.regexp.replace.extended.simple_delimiter.perl",
        patterns: [{include: "#escaped_char"}]},
-      {begin: /(.)/,
+      {begin: /(?<_1>.)/,
        captures: {0 => {name: "punctuation.definition.string.perl"}},
        end: "\\1(?=[egimos]*x[egimos]*)\\b",
        name: "string.regexp.replace.extended.simple_delimiter.perl",
@@ -220,9 +221,10 @@
    {captures: 
      {1 => {name: "punctuation.definition.string.perl"},
       5 => {name: "punctuation.definition.string.perl"}},
-    match: /(?<!\\)((~\s*)?\/)(\S.*?)(?<!\\)(\\{2})*(\/)/,
+    match: 
+     /(?<!\\)(?<_1>(?<_2>~\s*)?\/)(?<_3>\S.*?)(?<!\\)(?<_4>\\{2})*(?<_5>\/)/,
     name: "string.regexp.find.perl"},
-   {begin: /(?<!\\)(\~\s*\/)/,
+   {begin: /(?<!\\)(?<_1>\~\s*\/)/,
     captures: {0 => {name: "punctuation.definition.string.perl"}},
     end: "\\/([cgimos]*x[cgimos]*)\\b",
     endCaptures: {1 => {name: "keyword.control.regexp-option.perl"}},
@@ -233,33 +235,34 @@
       2 => {name: "entity.name.type.class.perl"},
       3 => {name: "comment.line.number-sign.perl"},
       4 => {name: "punctuation.definition.comment.perl"}},
-    match: /^\s*(package)\s+(\S+)\s*((#).*)?$\n?/,
+    match: /^\s*(?<_1>package)\s+(?<_2>\S+)\s*(?<_3>(?<_4>#).*)?$\n?/,
     name: "meta.class.perl"},
    {captures: 
      {1 => {name: "storage.type.sub.perl"},
       2 => {name: "entity.name.function.perl"},
       3 => {name: "storage.type.method.perl"}},
-    match: /^\s*(sub)\s+([-a-zA-Z0-9_]+)\s*(\([\$\@\*;]*\))?/,
+    match: /^\s*(?<_1>sub)\s+(?<_2>[-a-zA-Z0-9_]+)\s*(?<_3>\([\$\@\*;]*\))?/,
     name: "meta.function.perl"},
    {captures: 
      {1 => {name: "entity.name.function.perl"},
       2 => {name: "punctuation.definition.parameters.perl"},
       3 => {name: "variable.parameter.function.perl"}},
-    match: /^\s*(BEGIN|END|DESTROY)\b/,
+    match: /^\s*(?<_1>BEGIN|END|DESTROY)\b/,
     name: "meta.function.perl"},
-   {begin: /^(?=(\t| {4}))/,
+   {begin: /^(?=(?<_1>\t| {4}))/,
     end: "(?=[^\\t\\s])",
     name: "meta.leading-tabs",
     patterns: 
      [{captures: {1 => {name: "meta.odd-tab"}, 2 => {name: "meta.even-tab"}},
-       match: /(\t| {4})(\t| {4})?/}]},
+       match: /(?<_1>\t| {4})(?<_2>\t| {4})?/}]},
    {captures: 
      {1 => {name: "support.function.perl"},
       2 => {name: "punctuation.definition.string.perl"},
       5 => {name: "punctuation.definition.string.perl"}},
-    match: /\b(m)\s*(?<!\\)([^\[\{\(A-Za-z0-9\s])(.*?)(?<!\\)(\\{2})*(\2)/,
+    match: 
+     /\b(?<_1>m)\s*(?<!\\)(?<_2>[^\[\{\(A-Za-z0-9\s])(?<_3>.*?)(?<!\\)(?<_4>\\{2})*(?<_5>\k<_2>)/,
     name: "string.regexp.find-m.perl"},
-   {begin: /\b(m)\s*(?<!\\)\(/,
+   {begin: /\b(?<_1>m)\s*(?<!\\)\(/,
     beginCaptures: {0 => {name: "punctuation.definition.string.begin.perl"}},
     end: "\\)",
     endCaptures: {0 => {name: "punctuation.definition.string.end.perl"}},
@@ -268,7 +271,7 @@
      [{include: "#escaped_char"},
       {include: "#nested_parens_interpolated"},
       {include: "#variable"}]},
-   {begin: /\b(m)\s*(?<!\\)\{/,
+   {begin: /\b(?<_1>m)\s*(?<!\\)\{/,
     beginCaptures: {0 => {name: "punctuation.definition.string.begin.perl"}},
     end: "\\}",
     endCaptures: {0 => {name: "punctuation.definition.string.end.perl"}},
@@ -277,7 +280,7 @@
      [{include: "#escaped_char"},
       {include: "#nested_braces_interpolated"},
       {include: "#variable"}]},
-   {begin: /\b(m)\s*(?<!\\)\[/,
+   {begin: /\b(?<_1>m)\s*(?<!\\)\[/,
     beginCaptures: {0 => {name: "punctuation.definition.string.begin.perl"}},
     end: "\\]",
     endCaptures: {0 => {name: "punctuation.definition.string.end.perl"}},
@@ -286,7 +289,7 @@
      [{include: "#escaped_char"},
       {include: "#nested_brackets_interpolated"},
       {include: "#variable"}]},
-   {begin: /\b(m)\s*(?<!\\)\</,
+   {begin: /\b(?<_1>m)\s*(?<!\\)\</,
     beginCaptures: {0 => {name: "punctuation.definition.string.begin.perl"}},
     end: "\\>",
     endCaptures: {0 => {name: "punctuation.definition.string.end.perl"}},
@@ -301,19 +304,19 @@
       5 => {name: "punctuation.definition.string.perl"},
       8 => {name: "punctuation.definition.string.perl"}},
     match: 
-     /\b(s|tr|y)\s*([^A-Za-z0-9\s])(.*?)(?<!\\)(\\{2})*(\2)(.*?)(?<!\\)(\\{2})*(\2)/,
+     /\b(?<_1>s|tr|y)\s*(?<_2>[^A-Za-z0-9\s])(?<_3>.*?)(?<!\\)(?<_4>\\{2})*(?<_5>\k<_2>)(?<_6>.*?)(?<!\\)(?<_7>\\{2})*(?<_8>\k<_2>)/,
     name: "string.regexp.replace.perl"},
-   {match: /\b(__FILE__|__LINE__|__PACKAGE__)\b/,
+   {match: /\b(?<_1>__FILE__|__LINE__|__PACKAGE__)\b/,
     name: "constant.language.perl"},
    {match: 
-     /(?<!->)\b(continue|die|do|else|elsif|exit|for|foreach|goto|if|last|next|redo|return|select|unless|until|wait|while|switch|case|package|require|use|eval)\b/,
+     /(?<!->)\b(?<_1>continue|die|do|else|elsif|exit|for|foreach|goto|if|last|next|redo|return|select|unless|until|wait|while|switch|case|package|require|use|eval)\b/,
     name: "keyword.control.perl"},
-   {match: /\b(my|our|local)\b/, name: "storage.modifier.perl"},
+   {match: /\b(?<_1>my|our|local)\b/, name: "storage.modifier.perl"},
    {match: /(?<!\w)\-[rwx0RWXOezsfdlpSbctugkTBMAC]\b/,
     name: "keyword.operator.filetest.perl"},
-   {match: /\b(and|or|xor|as)\b/, name: "keyword.operator.logical.perl"},
-   {match: /(<=>| =>|->)/, name: "keyword.operator.comparison.perl"},
-   {begin: /((<<) *"HTML").*\n?/,
+   {match: /\b(?<_1>and|or|xor|as)\b/, name: "keyword.operator.logical.perl"},
+   {match: /(?<_1><=>| =>|->)/, name: "keyword.operator.comparison.perl"},
+   {begin: /(?<_1>(?<_2><<) *"HTML").*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.doublequote.perl"},
@@ -324,7 +327,7 @@
      [{include: "#escaped_char"},
       {include: "#variable"},
       {include: "text.html.basic"}]},
-   {begin: /((<<) *"XML").*\n?/,
+   {begin: /(?<_1>(?<_2><<) *"XML").*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.doublequote.perl"},
@@ -335,7 +338,7 @@
      [{include: "#escaped_char"},
       {include: "#variable"},
       {include: "text.xml"}]},
-   {begin: /((<<) *"CSS").*\n?/,
+   {begin: /(?<_1>(?<_2><<) *"CSS").*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.doublequote.perl"},
@@ -346,7 +349,7 @@
      [{include: "#escaped_char"},
       {include: "#variable"},
       {include: "source.css"}]},
-   {begin: /((<<) *"JAVASCRIPT").*\n?/,
+   {begin: /(?<_1>(?<_2><<) *"JAVASCRIPT").*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.doublequote.perl"},
@@ -357,7 +360,7 @@
      [{include: "#escaped_char"},
       {include: "#variable"},
       {include: "source.js"}]},
-   {begin: /((<<) *"SQL").*\n?/,
+   {begin: /(?<_1>(?<_2><<) *"SQL").*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.doublequote.perl"},
@@ -368,7 +371,7 @@
      [{include: "#escaped_char"},
       {include: "#variable"},
       {include: "source.sql"}]},
-   {begin: /((<<) *"POSTSCRIPT").*\n?/,
+   {begin: /(?<_1>(?<_2><<) *"POSTSCRIPT").*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.doublequote.perl"},
@@ -379,7 +382,7 @@
      [{include: "#escaped_char"},
       {include: "#variable"},
       {include: "source.postscript"}]},
-   {begin: /((<<) *"([^"]*)").*\n?/,
+   {begin: /(?<_1>(?<_2><<) *"(?<_3>[^"]*)").*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.doublequote.perl"},
@@ -387,7 +390,7 @@
     contentName: "string.unquoted.heredoc.doublequote.perl",
     end: "(^\\3$)",
     patterns: [{include: "#escaped_char"}, {include: "#variable"}]},
-   {begin: /((<<) *'HTML').*\n?/,
+   {begin: /(?<_1>(?<_2><<) *'HTML').*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.quote.perl"},
@@ -395,7 +398,7 @@
     contentName: "text.html.embedded.perl",
     end: "(^HTML$)",
     patterns: [{include: "text.html.basic"}]},
-   {begin: /((<<) *'XML').*\n?/,
+   {begin: /(?<_1>(?<_2><<) *'XML').*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.quote.perl"},
@@ -403,7 +406,7 @@
     contentName: "text.xml.embedded.perl",
     end: "(^XML$)",
     patterns: [{include: "text.xml"}]},
-   {begin: /((<<) *'CSS').*\n?/,
+   {begin: /(?<_1>(?<_2><<) *'CSS').*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.quote.perl"},
@@ -411,7 +414,7 @@
     contentName: "text.css.embedded.perl",
     end: "(^CSS$)",
     patterns: [{include: "source.css"}]},
-   {begin: /((<<) *'JAVASCRIPT').*\n?/,
+   {begin: /(?<_1>(?<_2><<) *'JAVASCRIPT').*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.quote.perl"},
@@ -419,7 +422,7 @@
     contentName: "text.js.embedded.perl",
     end: "(^JAVASCRIPT$)",
     patterns: [{include: "source.js"}]},
-   {begin: /((<<) *'SQL').*\n?/,
+   {begin: /(?<_1>(?<_2><<) *'SQL').*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.quote.perl"},
@@ -427,7 +430,7 @@
     contentName: "source.sql.embedded.perl",
     end: "(^SQL$)",
     patterns: [{include: "source.sql"}]},
-   {begin: /((<<) *'POSTSCRIPT').*\n?/,
+   {begin: /(?<_1>(?<_2><<) *'POSTSCRIPT').*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.quote.perl"},
@@ -435,14 +438,14 @@
     contentName: "source.postscript.embedded.perl",
     end: "(^POSTSCRIPT)",
     patterns: [{include: "source.postscript"}]},
-   {begin: /((<<) *'([^']*)').*\n?/,
+   {begin: /(?<_1>(?<_2><<) *'(?<_3>[^']*)').*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.quote.perl"},
       2 => {name: "punctuation.definition.heredoc.perl"}},
     contentName: "string.unquoted.heredoc.quote.perl",
     end: "(^\\3$)"},
-   {begin: /((<<) *`([^`]*)`).*\n?/,
+   {begin: /(?<_1>(?<_2><<) *`(?<_3>[^`]*)`).*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.backtick.perl"},
@@ -450,7 +453,7 @@
     contentName: "string.unquoted.heredoc.backtick.perl",
     end: "(^\\3$)",
     patterns: [{include: "#escaped_char"}, {include: "#variable"}]},
-   {begin: /((<<) *HTML\b).*\n?/,
+   {begin: /(?<_1>(?<_2><<) *HTML\b).*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.perl"},
@@ -461,7 +464,7 @@
      [{include: "#escaped_char"},
       {include: "#variable"},
       {include: "text.html.basic"}]},
-   {begin: /((<<) *XML\b).*\n?/,
+   {begin: /(?<_1>(?<_2><<) *XML\b).*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.perl"},
@@ -472,7 +475,7 @@
      [{include: "#escaped_char"},
       {include: "#variable"},
       {include: "text.xml"}]},
-   {begin: /((<<) *SQL\b).*\n?/,
+   {begin: /(?<_1>(?<_2><<) *SQL\b).*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.perl"},
@@ -483,7 +486,7 @@
      [{include: "#escaped_char"},
       {include: "#variable"},
       {include: "source.sql"}]},
-   {begin: /((<<) *POSTSCRIPT\b).*\n?/,
+   {begin: /(?<_1>(?<_2><<) *POSTSCRIPT\b).*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.perl"},
@@ -494,7 +497,7 @@
      [{include: "#escaped_char"},
       {include: "#variable"},
       {include: "source.postscript"}]},
-   {begin: /((<<) *((?![=\d\$ ])[^;,'"`\s)]*)).*\n?/,
+   {begin: /(?<_1>(?<_2><<) *(?<_3>(?![=\d\$ ])[^;,'"`\s)]*)).*\n?/,
     captures: 
      {0 => {name: "punctuation.definition.string.perl"},
       1 => {name: "string.unquoted.heredoc.perl"},
@@ -502,13 +505,13 @@
     contentName: "string.unquoted.heredoc.perl",
     end: "(^\\3$)",
     patterns: [{include: "#escaped_char"}, {include: "#variable"}]},
-   {begin: /\bqq\s*([^\(\{\[\<\w\s])/,
+   {begin: /\bqq\s*(?<_1>[^\(\{\[\<\w\s])/,
     beginCaptures: {0 => {name: "punctuation.definition.string.begin.perl"}},
     end: "\\1",
     endCaptures: {0 => {name: "punctuation.definition.string.end.perl"}},
     name: "string.quoted.other.qq.perl",
     patterns: [{include: "#escaped_char"}, {include: "#variable"}]},
-   {begin: /\bqx\s*([^'\(\{\[\<\w\s])/,
+   {begin: /\bqx\s*(?<_1>[^'\(\{\[\<\w\s])/,
     beginCaptures: {0 => {name: "punctuation.definition.string.begin.perl"}},
     end: "\\1",
     endCaptures: {0 => {name: "punctuation.definition.string.end.perl"}},
@@ -526,7 +529,7 @@
     endCaptures: {0 => {name: "punctuation.definition.string.end.perl"}},
     name: "string.quoted.double.perl",
     patterns: [{include: "#escaped_char"}, {include: "#variable"}]},
-   {begin: /\bqw?\s*([^\(\{\[\<\w\s])/,
+   {begin: /\bqw?\s*(?<_1>[^\(\{\[\<\w\s])/,
     beginCaptures: {0 => {name: "punctuation.definition.string.begin.perl"}},
     end: "\\1",
     endCaptures: {0 => {name: "punctuation.definition.string.end.perl"}},
@@ -645,7 +648,7 @@
     end: "$",
     endCaptures: {0 => {name: "punctuation.definition.string.end.perl"}},
     name: "string.unquoted.program-block.perl"},
-   {begin: /\b(format)\s+([A-Za-z]+)\s*=/,
+   {begin: /\b(?<_1>format)\s+(?<_2>[A-Za-z]+)\s*=/,
     beginCaptures: 
      {1 => {name: "support.function.perl"},
       2 => {name: "entity.name.function.format.perl"}},
@@ -653,7 +656,7 @@
     name: "meta.format.perl",
     patterns: [{include: "#line_comment"}, {include: "#variable"}]},
    {match: 
-     /\b(ARGV|DATA|ENV|SIG|STDERR|STDIN|STDOUT|atan2|bind|binmode|bless|caller|chdir|chmod|chomp|chop|chown|chr|chroot|close|closedir|cmp|connect|cos|crypt|dbmclose|dbmopen|defined|delete|dump|each|endgrent|endhostent|endnetent|endprotoent|endpwent|endservent|eof|eq|eval|exec|exists|exp|fcntl|fileno|flock|fork|format|formline|ge|getc|getgrent|getgrgid|getgrnam|gethostbyaddr|gethostbyname|gethostent|getlogin|getnetbyaddr|getnetbyname|getnetent|getpeername|getpgrp|getppid|getpriority|getprotobyname|getprotobynumber|getprotoent|getpwent|getpwnam|getpwuid|getservbyname|getservbyport|getservent|getsockname|getsockopt|glob|gmtime|grep|gt|hex|import|index|int|ioctl|join|keys|kill|lc|lcfirst|le|length|link|listen|local|localtime|log|lstat|lt|m|map|mkdir|msgctl|msgget|msgrcv|msgsnd|ne|no|oct|open|opendir|ord|pack|pipe|pop|pos|print|printf|push|q|qq|quotemeta|qw|qx|rand|read|readdir|readlink|recv|ref|rename|reset|reverse|rewinddir|rindex|rmdir|s|scalar|seek|seekdir|semctl|semget|semop|send|setgrent|sethostent|setnetent|setpgrp|setpriority|setprotoent|setpwent|setservent|setsockopt|shift|shmctl|shmget|shmread|shmwrite|shutdown|sin|sleep|socket|socketpair|sort|splice|split|sprintf|sqrt|srand|stat|study|substr|symlink|syscall|sysopen|sysread|system|syswrite|tell|telldir|tie|tied|time|times|tr|truncate|uc|ucfirst|umask|undef|unlink|unpack|unshift|untie|utime|values|vec|waitpid|wantarray|warn|write|y|q|qw|qq|qx)\b/,
+     /\b(?<_1>ARGV|DATA|ENV|SIG|STDERR|STDIN|STDOUT|atan2|bind|binmode|bless|caller|chdir|chmod|chomp|chop|chown|chr|chroot|close|closedir|cmp|connect|cos|crypt|dbmclose|dbmopen|defined|delete|dump|each|endgrent|endhostent|endnetent|endprotoent|endpwent|endservent|eof|eq|eval|exec|exists|exp|fcntl|fileno|flock|fork|format|formline|ge|getc|getgrent|getgrgid|getgrnam|gethostbyaddr|gethostbyname|gethostent|getlogin|getnetbyaddr|getnetbyname|getnetent|getpeername|getpgrp|getppid|getpriority|getprotobyname|getprotobynumber|getprotoent|getpwent|getpwnam|getpwuid|getservbyname|getservbyport|getservent|getsockname|getsockopt|glob|gmtime|grep|gt|hex|import|index|int|ioctl|join|keys|kill|lc|lcfirst|le|length|link|listen|local|localtime|log|lstat|lt|m|map|mkdir|msgctl|msgget|msgrcv|msgsnd|ne|no|oct|open|opendir|ord|pack|pipe|pop|pos|print|printf|push|q|qq|quotemeta|qw|qx|rand|read|readdir|readlink|recv|ref|rename|reset|reverse|rewinddir|rindex|rmdir|s|scalar|seek|seekdir|semctl|semget|semop|send|setgrent|sethostent|setnetent|setpgrp|setpriority|setprotoent|setpwent|setservent|setsockopt|shift|shmctl|shmget|shmread|shmwrite|shutdown|sin|sleep|socket|socketpair|sort|splice|split|sprintf|sqrt|srand|stat|study|substr|symlink|syscall|sysopen|sysread|system|syswrite|tell|telldir|tie|tied|time|times|tr|truncate|uc|ucfirst|umask|undef|unlink|unpack|unshift|untie|utime|values|vec|waitpid|wantarray|warn|write|y|q|qw|qq|qx)\b/,
     name: "support.function.perl"}],
  repository: 
   {escaped_char: {match: /\\./, name: "constant.character.escape.perl"},
@@ -662,10 +665,10 @@
       [{captures: 
          {1 => {name: "comment.line.number-sign.perl"},
           2 => {name: "punctuation.definition.comment.perl"}},
-        match: /^((#).*$\n?)/,
+        match: /^(?<_1>(?<_2>#).*$\n?)/,
         name: "meta.comment.full-line.perl"},
        {captures: {1 => {name: "punctuation.definition.comment.perl"}},
-        match: /(#).*$\n?/,
+        match: /(?<_1>#).*$\n?/,
         name: "comment.line.number-sign.perl"}]},
    nested_braces: 
     {begin: /\{/,
@@ -724,41 +727,42 @@
    variable: 
     {patterns: 
       [{captures: {1 => {name: "punctuation.definition.variable.perl"}},
-        match: /(\$)&(?![A-Za-z0-9_])/,
+        match: /(?<_1>\$)&(?![A-Za-z0-9_])/,
         name: "variable.other.regexp.match.perl"},
        {captures: {1 => {name: "punctuation.definition.variable.perl"}},
-        match: /(\$)`(?![A-Za-z0-9_])/,
+        match: /(?<_1>\$)`(?![A-Za-z0-9_])/,
         name: "variable.other.regexp.pre-match.perl"},
        {captures: {1 => {name: "punctuation.definition.variable.perl"}},
-        match: /(\$)'(?![A-Za-z0-9_])/,
+        match: /(?<_1>\$)'(?![A-Za-z0-9_])/,
         name: "variable.other.regexp.post-match.perl"},
        {captures: {1 => {name: "punctuation.definition.variable.perl"}},
-        match: /(\$)\+(?![A-Za-z0-9_])/,
+        match: /(?<_1>\$)\+(?![A-Za-z0-9_])/,
         name: "variable.other.regexp.last-paren-match.perl"},
        {captures: {1 => {name: "punctuation.definition.variable.perl"}},
-        match: /(\$)"(?![A-Za-z0-9_])/,
+        match: /(?<_1>\$)"(?![A-Za-z0-9_])/,
         name: "variable.other.readwrite.list-separator.perl"},
        {captures: {1 => {name: "punctuation.definition.variable.perl"}},
-        match: /(\$)0(?![A-Za-z0-9_])/,
+        match: /(?<_1>\$)0(?![A-Za-z0-9_])/,
         name: "variable.other.predefined.program-name.perl"},
        {captures: {1 => {name: "punctuation.definition.variable.perl"}},
-        match: /(\$)[_ab\*\.\/\|,\\;#%=\-~^:?!\$<>\(\)\[\]@](?![A-Za-z0-9_])/,
+        match: 
+         /(?<_1>\$)[_ab\*\.\/\|,\\;#%=\-~^:?!\$<>\(\)\[\]@](?![A-Za-z0-9_])/,
         name: "variable.other.predefined.perl"},
        {captures: {1 => {name: "punctuation.definition.variable.perl"}},
-        match: /(\$)[0-9]+(?![A-Za-z0-9_])/,
+        match: /(?<_1>\$)[0-9]+(?![A-Za-z0-9_])/,
         name: "variable.other.subpattern.perl"},
        {captures: {1 => {name: "punctuation.definition.variable.perl"}},
         match: 
-         /([\$\@\%](#)?)([a-zA-Zx7f-xff\$]|::)([a-zA-Z0-9_x7f-xff\$]|::)*\b/,
+         /(?<_1>[\$\@\%](?<_2>#)?)(?<_3>[a-zA-Zx7f-xff\$]|::)(?<_4>[a-zA-Z0-9_x7f-xff\$]|::)*\b/,
         name: "variable.other.readwrite.global.perl"},
        {captures: 
          {1 => {name: "punctuation.definition.variable.perl"},
           2 => {name: "punctuation.definition.variable.perl"}},
         match: 
-         /(\$\{)(?:[a-zA-Zx7f-xff\$]|::)(?:[a-zA-Z0-9_x7f-xff\$]|::)*(\})/,
+         /(?<_1>\$\{)(?:[a-zA-Zx7f-xff\$]|::)(?:[a-zA-Z0-9_x7f-xff\$]|::)*(?<_2>\})/,
         name: "variable.other.readwrite.global.perl"},
        {captures: {1 => {name: "punctuation.definition.variable.perl"}},
-        match: /([\$\@\%](#)?)[0-9_]\b/,
+        match: /(?<_1>[\$\@\%](?<_2>#)?)[0-9_]\b/,
         name: "variable.other.readwrite.global.special.perl"}]}},
  scopeName: "source.perl",
  uuid: "EDBFE125-6B1C-11D9-9189-000D93589AF6"}