{
  "displayName": "Perl",
  "name": "perl",
  "patterns": [
    {
      "include": "#line_comment"
    },
    {
      "begin": "^(?==[A-Za-z]+)",
      "end": "^(=cut\\b.*)$",
      "endCaptures": {
        "1": {
          "patterns": [
            {
              "include": "#pod"
            }
          ]
        }
      },
      "name": "comment.block.documentation.perl",
      "patterns": [
        {
          "include": "#pod"
        }
      ]
    },
    {
      "include": "#variable"
    },
    {
      "applyEndPatternLast": 1,
      "begin": "\\b(?=qr\\s*[^\\s\\w])",
      "end": "((([acdegil-prsux]*)))(?=(\\s+\\S|\\s*[#),;{}]|\\s*$))",
      "endCaptures": {
        "1": {
          "name": "string.regexp.compile.perl"
        },
        "2": {
          "name": "punctuation.definition.string.perl"
        },
        "3": {
          "name": "keyword.control.regexp-option.perl"
        }
      },
      "patterns": [
        {
          "begin": "(qr)\\s*\\{",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "}",
          "name": "string.regexp.compile.nested_braces.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_braces_interpolated"
            }
          ]
        },
        {
          "begin": "(qr)\\s*\\[",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "]",
          "name": "string.regexp.compile.nested_brackets.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_brackets_interpolated"
            }
          ]
        },
        {
          "begin": "(qr)\\s*<",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": ">",
          "name": "string.regexp.compile.nested_ltgt.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_ltgt_interpolated"
            }
          ]
        },
        {
          "begin": "(qr)\\s*\\(",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "\\)",
          "name": "string.regexp.compile.nested_parens.perl",
          "patterns": [
            {
              "match": "\\$(?=[^'(<\\[\\\\{\\s\\w])"
            },
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_parens_interpolated"
            }
          ]
        },
        {
          "begin": "(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])",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "\\2",
          "name": "string.regexp.compile.simple-delimiter.perl",
          "patterns": [
            {
              "match": "\\$(?=[^'(<\\[{\\s\\w])",
              "name": "keyword.control.anchor.perl"
            },
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_parens_interpolated"
            }
          ]
        }
      ]
    },
    {
      "applyEndPatternLast": 1,
      "begin": "(?<![-+{])\\b(?=m\\s*[^0-9A-Za-z\\s])",
      "end": "((([acdegil-prsux]*)))(?=(\\s+\\S|\\s*[#),;{}]|\\s*$))",
      "endCaptures": {
        "1": {
          "name": "string.regexp.find-m.perl"
        },
        "2": {
          "name": "punctuation.definition.string.perl"
        },
        "3": {
          "name": "keyword.control.regexp-option.perl"
        }
      },
      "patterns": [
        {
          "begin": "(m)\\s*\\{",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "}",
          "name": "string.regexp.find-m.nested_braces.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_braces_interpolated"
            }
          ]
        },
        {
          "begin": "(m)\\s*\\[",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "]",
          "name": "string.regexp.find-m.nested_brackets.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_brackets_interpolated"
            }
          ]
        },
        {
          "begin": "(m)\\s*<",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": ">",
          "name": "string.regexp.find-m.nested_ltgt.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_ltgt_interpolated"
            }
          ]
        },
        {
          "begin": "(m)\\s*\\(",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "\\)",
          "name": "string.regexp.find-m.nested_parens.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_parens_interpolated"
            }
          ]
        },
        {
          "begin": "(m)\\s*'",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "'",
          "name": "string.regexp.find-m.single-quote.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            }
          ]
        },
        {
          "begin": "\\G(?<![-+{])(m)(?!_)\\s*([^'(0-9<A-\\[a-{\\s])",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "\\2",
          "name": "string.regexp.find-m.simple-delimiter.perl",
          "patterns": [
            {
              "match": "\\$(?=[^'(0-9<A-\\[a-{\\s])",
              "name": "keyword.control.anchor.perl"
            },
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "begin": "\\[",
              "beginCaptures": {
                "1": {
                  "name": "punctuation.definition.character-class.begin.perl"
                }
              },
              "end": "]",
              "endCaptures": {
                "1": {
                  "name": "punctuation.definition.character-class.end.perl"
                }
              },
              "name": "constant.other.character-class.set.perl",
              "patterns": [
                {
                  "match": "\\$(?=[^'(<\\[{\\s\\w])",
                  "name": "keyword.control.anchor.perl"
                },
                {
                  "include": "#escaped_char"
                }
              ]
            },
            {
              "include": "#nested_parens_interpolated"
            }
          ]
        }
      ]
    },
    {
      "applyEndPatternLast": 1,
      "begin": "\\b(?=(?<!&)(s)(\\s+\\S|\\s*[(),;<\\[{}]|$))",
      "end": "((([acdegil-prsux]*)))(?=(\\s+\\S|\\s*[]),;>{}]|\\s*$))",
      "endCaptures": {
        "1": {
          "name": "string.regexp.replace.perl"
        },
        "2": {
          "name": "punctuation.definition.string.perl"
        },
        "3": {
          "name": "keyword.control.regexp-option.perl"
        }
      },
      "patterns": [
        {
          "begin": "(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*\\[",
          "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*<",
          "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*\\(",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "\\)",
          "name": "string.regexp.nested_parens.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#nested_parens"
            }
          ]
        },
        {
          "begin": "\\{",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            }
          },
          "end": "}",
          "name": "string.regexp.format.nested_braces.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_braces_interpolated"
            }
          ]
        },
        {
          "begin": "\\[",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            }
          },
          "end": "]",
          "name": "string.regexp.format.nested_brackets.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_brackets_interpolated"
            }
          ]
        },
        {
          "begin": "<",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            }
          },
          "end": ">",
          "name": "string.regexp.format.nested_ltgt.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_ltgt_interpolated"
            }
          ]
        },
        {
          "begin": "\\(",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            }
          },
          "end": "\\)",
          "name": "string.regexp.format.nested_parens.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            },
            {
              "include": "#nested_parens_interpolated"
            }
          ]
        },
        {
          "begin": "'",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            }
          },
          "end": "'",
          "name": "string.regexp.format.single_quote.perl",
          "patterns": [
            {
              "match": "\\\\['\\\\]",
              "name": "constant.character.escape.perl"
            }
          ]
        },
        {
          "begin": "([^(;<\\[{\\s\\w])",
          "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([^(0-9<A-\\[a-{\\s]).*\\1([acdegil-prsux]*)([),;}]|\\s+))",
      "end": "((([acdegil-prsux]*)))(?=([),;}]|\\s+|\\s*$))",
      "endCaptures": {
        "1": {
          "name": "string.regexp.replace.perl"
        },
        "2": {
          "name": "punctuation.definition.string.perl"
        },
        "3": {
          "name": "keyword.control.regexp-option.perl"
        }
      },
      "patterns": [
        {
          "begin": "(s\\s*)([^(0-9<A-\\[a-{\\s])",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "(?=\\2)",
          "name": "string.regexp.replaceXXX.simple_delimiter.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            }
          ]
        },
        {
          "begin": "'",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            }
          },
          "end": "'",
          "name": "string.regexp.replaceXXX.format.single_quote.perl",
          "patterns": [
            {
              "match": "\\\\['\\\\]",
              "name": "constant.character.escape.perl.perl"
            }
          ]
        },
        {
          "begin": "([^(0-9<A-\\[a-{\\s])",
          "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]))",
      "end": "((([acdegilmoprsu]*x[acdegilmoprsu]*)))\\b",
      "endCaptures": {
        "1": {
          "name": "string.regexp.replace.perl"
        },
        "2": {
          "name": "punctuation.definition.string.perl"
        },
        "3": {
          "name": "keyword.control.regexp-option.perl"
        }
      },
      "patterns": [
        {
          "begin": "(s)\\s*(.)",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            },
            "1": {
              "name": "support.function.perl"
            }
          },
          "end": "(?=\\2)",
          "name": "string.regexp.replace.extended.simple_delimiter.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            }
          ]
        },
        {
          "begin": "'",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            }
          },
          "end": "'(?=[acdegilmoprsu]*x[acdegilmoprsu]*)\\b",
          "name": "string.regexp.replace.extended.simple_delimiter.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            }
          ]
        },
        {
          "begin": "(.)",
          "captures": {
            "0": {
              "name": "punctuation.definition.string.perl"
            }
          },
          "end": "\\1(?=[acdegilmoprsu]*x[acdegilmoprsu]*)\\b",
          "name": "string.regexp.replace.extended.simple_delimiter.perl",
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            }
          ]
        }
      ]
    },
    {
      "begin": "(?<=[\\&({|~]|if|unless|^)\\s*((/))",
      "beginCaptures": {
        "1": {
          "name": "string.regexp.find.perl"
        },
        "2": {
          "name": "punctuation.definition.string.perl"
        }
      },
      "contentName": "string.regexp.find.perl",
      "end": "((\\1([acdegil-prsux]*)))(?=(\\s+\\S|\\s*[#),;{}]|\\s*$))",
      "endCaptures": {
        "1": {
          "name": "string.regexp.find.perl"
        },
        "2": {
          "name": "punctuation.definition.string.perl"
        },
        "3": {
          "name": "keyword.control.regexp-option.perl"
        }
      },
      "patterns": [
        {
          "match": "\\$(?=/)",
          "name": "keyword.control.anchor.perl"
        },
        {
          "include": "#escaped_char"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "captures": {
        "1": {
          "name": "constant.other.key.perl"
        }
      },
      "match": "\\b(\\w+)\\s*(?==>)"
    },
    {
      "match": "(?<=\\{)\\s*\\w+\\s*(?=})",
      "name": "constant.other.bareword.perl"
    },
    {
      "captures": {
        "1": {
          "name": "keyword.control.perl"
        },
        "2": {
          "name": "entity.name.type.class.perl"
        }
      },
      "match": "^\\s*(package)\\s+([^;\\s]+)",
      "name": "meta.class.perl"
    },
    {
      "captures": {
        "1": {
          "name": "storage.type.sub.perl"
        },
        "2": {
          "name": "entity.name.function.perl"
        },
        "3": {
          "name": "storage.type.method.perl"
        }
      },
      "match": "\\b(sub)(?:\\s+([-0-9A-Z_a-z]+))?\\s*(?:\\([$*;@]*\\))?[^{\\w]",
      "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|UNITCHECK|CHECK|INIT|END|DESTROY)\\b",
      "name": "meta.function.perl"
    },
    {
      "begin": "^(?=(\\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})?"
        }
      ]
    },
    {
      "captures": {
        "1": {
          "name": "support.function.perl"
        },
        "2": {
          "name": "punctuation.definition.string.perl"
        },
        "5": {
          "name": "punctuation.definition.string.perl"
        },
        "8": {
          "name": "punctuation.definition.string.perl"
        }
      },
      "match": "\\b(tr|y)\\s*([^0-9A-Za-z\\s])(.*?)(?<!\\\\)(\\\\{2})*(\\2)(.*?)(?<!\\\\)(\\\\{2})*(\\2)",
      "name": "string.regexp.replace.perl"
    },
    {
      "match": "\\b(__(?:FILE|LINE|PACKAGE|SUB)__)\\b",
      "name": "constant.language.perl"
    },
    {
      "begin": "\\b(__(?:DATA__|END__))\\n?",
      "beginCaptures": {
        "1": {
          "name": "constant.language.perl"
        }
      },
      "contentName": "comment.block.documentation.perl",
      "end": "\\z",
      "patterns": [
        {
          "include": "#pod"
        }
      ]
    },
    {
      "match": "(?<!->)\\b(continue|default|die|do|else|elsif|exit|for|foreach|given|goto|if|last|next|redo|return|select|unless|until|wait|when|while|switch|case|require|use|eval)\\b",
      "name": "keyword.control.perl"
    },
    {
      "match": "\\b(my|our|local)\\b",
      "name": "storage.modifier.perl"
    },
    {
      "match": "(?<!\\w)-[ABCMORSTWXb-gklopr-uwxz]\\b",
      "name": "keyword.operator.filetest.perl"
    },
    {
      "match": "\\b(and|or|xor|as|not)\\b",
      "name": "keyword.operator.logical.perl"
    },
    {
      "match": "((?:<=|[-=])>)",
      "name": "keyword.operator.comparison.perl"
    },
    {
      "include": "#heredoc"
    },
    {
      "begin": "\\bqq\\s*([^(<\\[{\\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])",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "\\1",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.interpolated.qx.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "\\bqx\\s*'",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "'",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.interpolated.qx.single-quote.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        }
      ]
    },
    {
      "begin": "\"",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "\"",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.double.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "(?<!->)\\bqw?\\s*([^(<\\[{\\w\\s])",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "\\1",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.other.q.perl"
    },
    {
      "begin": "'",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "'",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.single.perl",
      "patterns": [
        {
          "match": "\\\\['\\\\]",
          "name": "constant.character.escape.perl"
        }
      ]
    },
    {
      "begin": "`",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "`",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.interpolated.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "(?<!->)\\bqq\\s*\\(",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "\\)",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.other.qq-paren.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_parens_interpolated"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "\\bqq\\s*\\{",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "}",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.other.qq-brace.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_braces_interpolated"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "\\bqq\\s*\\[",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "]",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.other.qq-bracket.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_brackets_interpolated"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "\\bqq\\s*<",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": ">",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.other.qq-ltgt.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_ltgt_interpolated"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "(?<!->)\\bqx\\s*\\(",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "\\)",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.interpolated.qx-paren.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_parens_interpolated"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "\\bqx\\s*\\{",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "}",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.interpolated.qx-brace.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_braces_interpolated"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "\\bqx\\s*\\[",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "]",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.interpolated.qx-bracket.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_brackets_interpolated"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "\\bqx\\s*<",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": ">",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.interpolated.qx-ltgt.perl",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_ltgt_interpolated"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "begin": "(?<!->)\\bqw?\\s*\\(",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "\\)",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.other.q-paren.perl",
      "patterns": [
        {
          "include": "#nested_parens"
        }
      ]
    },
    {
      "begin": "\\bqw?\\s*\\{",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "}",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.other.q-brace.perl",
      "patterns": [
        {
          "include": "#nested_braces"
        }
      ]
    },
    {
      "begin": "\\bqw?\\s*\\[",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "]",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.other.q-bracket.perl",
      "patterns": [
        {
          "include": "#nested_brackets"
        }
      ]
    },
    {
      "begin": "\\bqw?\\s*<",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": ">",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.quoted.other.q-ltgt.perl",
      "patterns": [
        {
          "include": "#nested_ltgt"
        }
      ]
    },
    {
      "begin": "^__\\w+__",
      "beginCaptures": {
        "0": {
          "name": "punctuation.definition.string.begin.perl"
        }
      },
      "end": "$",
      "endCaptures": {
        "0": {
          "name": "punctuation.definition.string.end.perl"
        }
      },
      "name": "string.unquoted.program-block.perl"
    },
    {
      "begin": "\\b(format)\\s+(\\w+)\\s*=",
      "beginCaptures": {
        "1": {
          "name": "support.function.perl"
        },
        "2": {
          "name": "entity.name.function.format.perl"
        }
      },
      "end": "^\\.\\s*$",
      "name": "meta.format.perl",
      "patterns": [
        {
          "include": "#line_comment"
        },
        {
          "include": "#variable"
        }
      ]
    },
    {
      "captures": {
        "1": {
          "name": "support.function.perl"
        },
        "2": {
          "name": "entity.name.function.perl"
        }
      },
      "match": "\\b(x)\\s*(\\d+)\\b"
    },
    {
      "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|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|quotemeta|rand|read|readdir|readlink|recv|ref|rename|reset|reverse|rewinddir|rindex|rmdir|s|say|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)\\b",
      "name": "support.function.perl"
    },
    {
      "captures": {
        "1": {
          "name": "punctuation.section.scope.begin.perl"
        },
        "2": {
          "name": "punctuation.section.scope.end.perl"
        }
      },
      "match": "(\\{)(})"
    },
    {
      "captures": {
        "1": {
          "name": "punctuation.section.scope.begin.perl"
        },
        "2": {
          "name": "punctuation.section.scope.end.perl"
        }
      },
      "match": "(\\()(\\))"
    }
  ],
  "repository": {
    "escaped_char": {
      "patterns": [
        {
          "match": "\\\\\\d+",
          "name": "constant.character.escape.perl"
        },
        {
          "match": "\\\\c[^\\\\\\s]",
          "name": "constant.character.escape.perl"
        },
        {
          "match": "\\\\g(?:\\{(?:\\w*|-\\d+)}|\\d+)",
          "name": "constant.character.escape.perl"
        },
        {
          "match": "\\\\k(?:\\{\\w*}|<\\w*>|'\\w*')",
          "name": "constant.character.escape.perl"
        },
        {
          "match": "\\\\N\\{[^}]*}",
          "name": "constant.character.escape.perl"
        },
        {
          "match": "\\\\o\\{\\d*}",
          "name": "constant.character.escape.perl"
        },
        {
          "match": "\\\\[Pp](?:\\{\\w*}|P)",
          "name": "constant.character.escape.perl"
        },
        {
          "match": "\\\\x(?:[0-9A-Za-z]{2}|\\{\\w*})?",
          "name": "constant.character.escape.perl"
        },
        {
          "match": "\\\\.",
          "name": "constant.character.escape.perl"
        }
      ]
    },
    "heredoc": {
      "patterns": [
        {
          "begin": "((((<<(~)?) *')(HTML)(')))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.raw.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.html",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "text.html.basic",
              "patterns": [
                {
                  "include": "text.html.basic"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *')(XML)(')))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.raw.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.xml",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "text.xml",
              "patterns": [
                {
                  "include": "text.xml"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *')(CSS)(')))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.raw.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.css",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.css",
              "patterns": [
                {
                  "include": "source.css"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *')(JAVASCRIPT)(')))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.raw.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.js",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.js",
              "patterns": [
                {
                  "include": "source.js"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *')(SQL)(')))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.raw.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.sql",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.sql",
              "patterns": [
                {
                  "include": "source.sql"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *')(POSTSCRIPT)(')))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.raw.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.postscript",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.postscript",
              "patterns": [
                {
                  "include": "source.postscript"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *')([^']*)(')))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.raw.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          }
        },
        {
          "begin": "((((<<(~)?) *\\\\)((?![ $(=\\d])[^\"'),;`\\s]*)()))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.raw.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.raw.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          }
        },
        {
          "begin": "((((<<(~)?) *\")(HTML)(\")))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.html",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "text.html.basic",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "text.html.basic"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *\")(XML)(\")))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.xml",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "text.xml",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "text.xml"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *\")(CSS)(\")))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.css",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.css",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "source.css"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *\")(JAVASCRIPT)(\")))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.js",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.js",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "source.js"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *\")(SQL)(\")))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.sql",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.sql",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "source.sql"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *\")(POSTSCRIPT)(\")))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.postscript",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.postscript",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "source.postscript"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *\")([^\"]*)(\")))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *)(HTML)()))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.html",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "text.html.basic",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "text.html.basic"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *)(XML)()))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.xml",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "text.xml",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "text.xml"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *)(CSS)()))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.css",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.css",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "source.css"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *)(JAVASCRIPT)()))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.js",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.js",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "source.js"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *)(SQL)()))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.sql",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.sql",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "source.sql"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *)(POSTSCRIPT)()))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "name": "meta.embedded.block.postscript",
          "patterns": [
            {
              "begin": "^",
              "end": "\\n",
              "name": "source.postscript",
              "patterns": [
                {
                  "include": "#escaped_char"
                },
                {
                  "include": "#variable"
                },
                {
                  "include": "source.postscript"
                }
              ]
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *)((?![ $(=\\d])[^\"'),;`\\s]*)()))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.interpolated.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            }
          ]
        },
        {
          "begin": "((((<<(~)?) *`)([^`]*)(`)))(.*)\\n?",
          "beginCaptures": {
            "1": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "2": {
              "name": "punctuation.definition.string.begin.perl"
            },
            "3": {
              "name": "punctuation.definition.delimiter.begin.perl"
            },
            "7": {
              "name": "punctuation.definition.delimiter.end.perl"
            },
            "8": {
              "patterns": [
                {
                  "include": "$self"
                }
              ]
            }
          },
          "contentName": "string.unquoted.heredoc.shell.perl",
          "end": "^((?!\\5)\\s+)?((\\6))$",
          "endCaptures": {
            "2": {
              "name": "string.unquoted.heredoc.interpolated.perl"
            },
            "3": {
              "name": "punctuation.definition.string.end.perl"
            }
          },
          "patterns": [
            {
              "include": "#escaped_char"
            },
            {
              "include": "#variable"
            }
          ]
        }
      ]
    },
    "line_comment": {
      "patterns": [
        {
          "begin": "(^[\\t ]+)?(?=#)",
          "beginCaptures": {
            "1": {
              "name": "punctuation.whitespace.comment.leading.perl"
            }
          },
          "end": "(?!\\G)",
          "patterns": [
            {
              "begin": "#",
              "beginCaptures": {
                "0": {
                  "name": "punctuation.definition.comment.perl"
                }
              },
              "end": "\\n",
              "name": "comment.line.number-sign.perl"
            }
          ]
        }
      ]
    },
    "nested_braces": {
      "begin": "\\{",
      "captures": {
        "1": {
          "name": "punctuation.section.scope.perl"
        }
      },
      "end": "}",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_braces"
        }
      ]
    },
    "nested_braces_interpolated": {
      "begin": "\\{",
      "captures": {
        "1": {
          "name": "punctuation.section.scope.perl"
        }
      },
      "end": "}",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#variable"
        },
        {
          "include": "#nested_braces_interpolated"
        }
      ]
    },
    "nested_brackets": {
      "begin": "\\[",
      "captures": {
        "1": {
          "name": "punctuation.section.scope.perl"
        }
      },
      "end": "]",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_brackets"
        }
      ]
    },
    "nested_brackets_interpolated": {
      "begin": "\\[",
      "captures": {
        "1": {
          "name": "punctuation.section.scope.perl"
        }
      },
      "end": "]",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#variable"
        },
        {
          "include": "#nested_brackets_interpolated"
        }
      ]
    },
    "nested_ltgt": {
      "begin": "<",
      "captures": {
        "1": {
          "name": "punctuation.section.scope.perl"
        }
      },
      "end": ">",
      "patterns": [
        {
          "include": "#nested_ltgt"
        }
      ]
    },
    "nested_ltgt_interpolated": {
      "begin": "<",
      "captures": {
        "1": {
          "name": "punctuation.section.scope.perl"
        }
      },
      "end": ">",
      "patterns": [
        {
          "include": "#variable"
        },
        {
          "include": "#nested_ltgt_interpolated"
        }
      ]
    },
    "nested_parens": {
      "begin": "\\(",
      "captures": {
        "1": {
          "name": "punctuation.section.scope.perl"
        }
      },
      "end": "\\)",
      "patterns": [
        {
          "include": "#escaped_char"
        },
        {
          "include": "#nested_parens"
        }
      ]
    },
    "nested_parens_interpolated": {
      "begin": "\\(",
      "captures": {
        "1": {
          "name": "punctuation.section.scope.perl"
        }
      },
      "end": "\\)",
      "patterns": [
        {
          "match": "\\$(?=[^'(<\\[{\\s\\w])",
          "name": "keyword.control.anchor.perl"
        },
        {
          "include": "#escaped_char"
        },
        {
          "include": "#variable"
        },
        {
          "include": "#nested_parens_interpolated"
        }
      ]
    },
    "pod": {
      "patterns": [
        {
          "match": "^=(pod|back|cut)\\b",
          "name": "storage.type.class.pod.perl"
        },
        {
          "begin": "^(=begin)\\s+(html)\\s*$",
          "beginCaptures": {
            "1": {
              "name": "storage.type.class.pod.perl"
            },
            "2": {
              "name": "variable.other.pod.perl"
            }
          },
          "contentName": "text.embedded.html.basic",
          "end": "^(?:(=end)\\s+(html)|(?==cut))",
          "endCaptures": {
            "1": {
              "name": "storage.type.class.pod.perl"
            },
            "2": {
              "name": "variable.other.pod.perl"
            }
          },
          "name": "meta.embedded.pod.perl",
          "patterns": [
            {
              "include": "text.html.basic"
            }
          ]
        },
        {
          "captures": {
            "1": {
              "name": "storage.type.class.pod.perl"
            },
            "2": {
              "name": "variable.other.pod.perl",
              "patterns": [
                {
                  "include": "#pod-formatting"
                }
              ]
            }
          },
          "match": "^(=(?:head[1-4]|item|over|encoding|begin|end|for))\\b\\s*(.*)"
        },
        {
          "include": "#pod-formatting"
        }
      ]
    },
    "pod-formatting": {
      "patterns": [
        {
          "captures": {
            "1": {
              "name": "markup.italic.pod.perl"
            },
            "2": {
              "name": "markup.italic.pod.perl"
            }
          },
          "match": "I(?:<([^<>]+)>|<+(\\s+(?:(?<!\\s)>|[^>])+\\s+)>+)",
          "name": "entity.name.type.instance.pod.perl"
        },
        {
          "captures": {
            "1": {
              "name": "markup.bold.pod.perl"
            },
            "2": {
              "name": "markup.bold.pod.perl"
            }
          },
          "match": "B(?:<([^<>]+)>|<+(\\s+(?:(?<!\\s)>|[^>])+\\s+)>+)",
          "name": "entity.name.type.instance.pod.perl"
        },
        {
          "captures": {
            "1": {
              "name": "markup.raw.pod.perl"
            },
            "2": {
              "name": "markup.raw.pod.perl"
            }
          },
          "match": "C(?:<([^<>]+)>|<+(\\\\s+(?:(?<!\\\\s)>|[^>])+\\\\s+)>+)",
          "name": "entity.name.type.instance.pod.perl"
        },
        {
          "captures": {
            "1": {
              "name": "markup.underline.link.hyperlink.pod.perl"
            }
          },
          "match": "L<([^>]+)>",
          "name": "entity.name.type.instance.pod.perl"
        },
        {
          "match": "[EFSXZ]<[^>]*>",
          "name": "entity.name.type.instance.pod.perl"
        }
      ]
    },
    "variable": {
      "patterns": [
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "(\\$)&(?![0-9A-Z_a-z])",
          "name": "variable.other.regexp.match.perl"
        },
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "(\\$)`(?![0-9A-Z_a-z])",
          "name": "variable.other.regexp.pre-match.perl"
        },
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "(\\$)'(?![0-9A-Z_a-z])",
          "name": "variable.other.regexp.post-match.perl"
        },
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "(\\$)\\+(?![0-9A-Z_a-z])",
          "name": "variable.other.regexp.last-paren-match.perl"
        },
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "(\\$)\"(?![0-9A-Z_a-z])",
          "name": "variable.other.readwrite.list-separator.perl"
        },
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "(\\$)0(?![0-9A-Z_a-z])",
          "name": "variable.other.predefined.program-name.perl"
        },
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "(\\$)[!#$%()*,-/:-@\\[-_ab|~](?![0-9A-Z_a-z])",
          "name": "variable.other.predefined.perl"
        },
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "(\\$)[0-9]+(?![0-9A-Z_a-z])",
          "name": "variable.other.subpattern.perl"
        },
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "([$%@](#)?)([$7A-Za-z]|::)([$0-9A-Z_a-z]|::)*\\b",
          "name": "variable.other.readwrite.global.perl"
        },
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            },
            "2": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "(\\$\\{)(?:[$7A-Za-z]|::)(?:[$0-9A-Z_a-z]|::)*(})",
          "name": "variable.other.readwrite.global.perl"
        },
        {
          "captures": {
            "1": {
              "name": "punctuation.definition.variable.perl"
            }
          },
          "match": "([$%@](#)?)[0-9_]\\b",
          "name": "variable.other.readwrite.global.special.perl"
        }
      ]
    }
  },
  "scopeName": "source.perl"
}