source.perl.js

// This is a TextMate grammar distributed by `starry-night`.
// This grammar is developed at
// <https://github.com/textmate/perl.tmbundle>
// and licensed permissive.
// See <https://github.com/wooorm/starry-night> for more info.
/**
 * @import {Grammar} from '@wooorm/starry-night'
 */

/** @type {Grammar} */
const grammar = {
  extensions: ['.pl', '.cgi', '.perl', '.ph', '.plx', '.pm', '.psgi', '.t'],
  names: ['perl', 'cperl'],
  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: true,
      begin: '\\b(?=qr\\s*[^\\s\\w])',
      end: '((([egimosxradlupcn]*)))(?=(\\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: true,
      begin: '(?<!\\{|\\+|\\-)\\b(?=m\\s*[^\\sa-zA-Z0-9])',
      end: '((([egimosxradlupcn]*)))(?=(\\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*([^\\sa-zA-Z0-9'\\{\\[\\(\\<])",
          captures: {
            0: {name: 'punctuation.definition.string.perl'},
            1: {name: 'support.function.perl'}
          },
          end: '\\2',
          name: 'string.regexp.find-m.simple-delimiter.perl',
          patterns: [
            {
              match: "\\$(?=[^\\sa-zA-Z0-9'\\{\\[\\(\\<])",
              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: true,
      begin: '\\b(?=(?<!\\&)(s)(\\s+\\S|\\s*[;\\,\\{\\}\\(\\)\\[<]|$))',
      end: '((([egimosxradlupcn]*)))(?=(\\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([^\\sa-zA-Z0-9\\[({<]).*\\1([egimosxradlupcn]*)([\\}\\)\\;\\,]|\\s+))',
      end: '((([egimosxradlupcn]*)))(?=([\\}\\)\\;\\,]|\\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*)([^\\sa-zA-Z0-9\\[({<])',
          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: '([^\\sa-zA-Z0-9\\[({<])',
          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: '((([egimosradlupc]*x[egimosradlupc]*)))\\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: "'(?=[egimosradlupc]*x[egimosradlupc]*)\\b",
          name: 'string.regexp.replace.extended.simple_delimiter.perl',
          patterns: [{include: '#escaped_char'}]
        },
        {
          begin: '(.)',
          captures: {0: {name: 'punctuation.definition.string.perl'}},
          end: '\\1(?=[egimosradlupc]*x[egimosradlupc]*)\\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([egimosxradlupcn]*)))(?=(\\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+([-a-zA-Z0-9_]+))?\\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*([^A-Za-z0-9\\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)\\-[rwxoRWXOezsfdlpSbctugkTBMAC]\\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: '\\\\(?:p|P)(?:\\{\\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: '(\\$)&(?![A-Za-z0-9_])',
          name: 'variable.other.regexp.match.perl'
        },
        {
          captures: {1: {name: 'punctuation.definition.variable.perl'}},
          match: '(\\$)`(?![A-Za-z0-9_])',
          name: 'variable.other.regexp.pre-match.perl'
        },
        {
          captures: {1: {name: 'punctuation.definition.variable.perl'}},
          match: "(\\$)'(?![A-Za-z0-9_])",
          name: 'variable.other.regexp.post-match.perl'
        },
        {
          captures: {1: {name: 'punctuation.definition.variable.perl'}},
          match: '(\\$)\\+(?![A-Za-z0-9_])',
          name: 'variable.other.regexp.last-paren-match.perl'
        },
        {
          captures: {1: {name: 'punctuation.definition.variable.perl'}},
          match: '(\\$)"(?![A-Za-z0-9_])',
          name: 'variable.other.readwrite.list-separator.perl'
        },
        {
          captures: {1: {name: 'punctuation.definition.variable.perl'}},
          match: '(\\$)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_])',
          name: 'variable.other.predefined.perl'
        },
        {
          captures: {1: {name: 'punctuation.definition.variable.perl'}},
          match: '(\\$)[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',
          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\\$]|::)*(\\})',
          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'
}

export default grammar