code-server/lib/vscode/extensions/perl/syntaxes/perl.tmLanguage.json

{
	"information_for_contributors": [
		"This file has been converted from https://github.com/textmate/perl.tmbundle/blob/master/Syntaxes/Perl.plist",
		"If you want to provide a fix or improvement, please create a pull request against the original repository.",
		"Once accepted there, we are happy to receive an update request."
	],
	"version": "https://github.com/textmate/perl.tmbundle/commit/a85927a902d6e5d7805f56a653f324d34dfad53a",
	"name": "Perl",
	"scopeName": "source.perl",
	"comment": "\n\tTODO:\tInclude RegExp syntax\n",
	"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])",
			"comment": "string.regexp.compile.perl",
			"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": [
						{
							"comment": "This is to prevent thinks like qr/foo$/ to treat $/ as a variable",
							"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": [
						{
							"comment": "This is to prevent thinks like qr/foo$/ to treat $/ as a variable",
							"match": "\\$(?=[^\\s\\w'\\{\\[\\(\\<])",
							"name": "keyword.control.anchor.perl"
						},
						{
							"include": "#escaped_char"
						},
						{
							"include": "#variable"
						},
						{
							"include": "#nested_parens_interpolated"
						}
					]
				}
			]
		},
		{
			"applyEndPatternLast": 1,
			"begin": "(?<!\\{|\\+|\\-)\\b(?=m\\s*[^\\sa-zA-Z0-9])",
			"comment": "string.regexp.find-m.perl",
			"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": [
						{
							"comment": "This is to prevent thinks like qr/foo$/ to treat $/ as a variable",
							"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": [
								{
									"comment": "This is to prevent thinks like qr/foo$/ to treat $/ as a variable",
									"match": "\\$(?=[^\\s\\w'\\{\\[\\(\\<])",
									"name": "keyword.control.anchor.perl"
								},
								{
									"include": "#escaped_char"
								}
							]
						},
						{
							"include": "#nested_parens_interpolated"
						}
					]
				}
			]
		},
		{
			"applyEndPatternLast": 1,
			"begin": "\\b(?=(?<!\\&)(s)(\\s+\\S|\\s*[;\\,\\{\\}\\(\\)\\[<]|$))",
			"comment": "string.regexp.replace.perl",
			"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+))",
			"comment": "string.regexp.replaceXXX",
			"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\\[({<>]))",
			"comment": "string.regexp.replace.extended",
			"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": [
				{
					"comment": "This is to prevent thinks like /foo$/ to treat $/ as a variable",
					"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"
				}
			},
			"comment": "Match empty brackets for ↩ snippet",
			"match": "(\\{)(\\})"
		},
		{
			"captures": {
				"1": {
					"name": "punctuation.section.scope.begin.perl"
				},
				"2": {
					"name": "punctuation.section.scope.end.perl"
				}
			},
			"comment": "Match empty parenthesis for ↩ snippet",
			"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": [
				{
					"comment": "This is to prevent thinks like qr/foo$/ to treat $/ as a variable",
					"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"
				}
			]
		}
	}
}