Slightly tweaked Perl and Modern Perl Sublime/TextMate Syntax files that handle syntax for decorators.pm

ModernPerl.tmLanguage

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<!--
This file was generated automatically by yaml2plist.pl from ModernPerl.tmLanguage.yaml.ep.
DO NOT edit this file directly. Instead, use yaml2plist.pl to generate it.
-->
<plist version="1.0">
    <dict>
        <key>comment</key>
        <string>Blaise Roth &lt;blaizer@cpan.org&gt;</string>
        <key>fileTypes</key>
        <array>
            <string>pl</string>
            <string>PL</string>
            <string>pm</string>
            <string>pod</string>
            <string>t</string>
        </array>
        <key>firstLineMatch</key>
        <string>^#!.*\bperl\b</string>
        <key>name</key>
        <string>ModernPerl</string>
        <key>patterns</key>
        <array>
            <dict>
                <key>include</key>
                <string>#line_comment</string>
            </dict>
            <dict>
                <key>include</key>
                <string>#pod</string>
            </dict>
            <dict>
                <key>comment</key>
                <string>These would otherwise be highlighted as variables or regex, but they're more likely to be an operator (or two).</string>
                <key>match</key>
                <string><![CDATA[(?x) [&%*][!\-~=] | && | \*\* | //]]></string>
            </dict>
            <dict>
                <key>captures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>support.function.sigil.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.var.perl</string>
                    </dict>
                </dict>
                <key>match</key>
                <string><![CDATA[(?x)
                ( & \g<identifier> )
                |
                (
                    \$\# (?:\$\s*)* \g<normal_identifier>
                    |
                    (?: [@$] \s* | [%*] )
                    (?<identifier>
                        (?:\$\s*)*
                        (?:
                            # digit variable like $2
                            (
                                \d+
                                |
                                (?:::)+ \d+ (?!\w|::|'[^\W\d])
                            )
                            |
                            { \s* \g<-1> \s* }
                        |
                            (?<normal_identifier> # normal variable like $foo::bar'baz
                                (
                                    (?:
                                        (?:::|'?[^\W\d]) \w*
                                    )++
                                )
                                |
                                { \s* \g<-1> \s* }
                            )
                        |
                            # caret variable like $^W or ${^Word}
                            (\^ [^\W\d\p{Lower}])
                            |
                            { \s* \g<-1> \w* \s* }
                        |
                            # punctuation variable like $[
                            ([^[^!-~]{\w\s])
                            |
                            { \s* \g<-1> \s* }
                        |
                            # just highlight the sigil for something like ${ +arbitrary }
                            (?={)
                        )
                    )
                |
                    # these characters aren't another operator, so always highlight them as sigils
                    [@$] \s*
                )
                ]]></string>
            </dict>
            <dict>
                <key>captures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>constant.language.string.perl</string>
                    </dict>
                </dict>
                <key>comment</key>
                <string>Turns out this operator needs to be really high up. It always autoquotes word characters. It even autoquotes q=&gt;=, making it almost impossible to have a literal &gt; at position 0 of a q==! There is a way, though! CORE::q=&gt;=. There's always a way!</string>
                <key>match</key>
                <string>(-?\b[^\W\d]\w*\??+)\s*+=&gt;</string>
            </dict>
            <dict>
                <key>begin</key>
                <string>(?x)
                \b ( (?:CORE::)? qw? ) \s*
                (?:
                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                )
                |
                (')
                </string>
                <key>beginCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.other.function.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string></string>
                    </dict>
                    <key>7</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.begin.perl</string>
                    </dict>
                    <key>8</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.begin.perl</string>
                    </dict>
                </dict>
                <key>contentName</key>
                <string>string.quoted.single.perl</string>
                <key>end</key>
                <string>(?x)
                (?:
                    ((?!\3)\)|(?!\4)&gt;|(?!\5)\]|(?!\6)})
                    |
                    ([\7\8[&amp;&amp;]])
                )
                </string>
                <key>endCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string></string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.end.perl</string>
                    </dict>
                </dict>
                <key>name</key>
                <string>meta.string.q.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>include</key>
                        <string>#single</string>
                    </dict>
                </array>
            </dict>
            <dict>
                <key>begin</key>
                <string>(?x)
                \b ( (?:CORE::)? qq ) \s*
                (?:
                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                )
                |
                (")
                </string>
                <key>beginCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.other.function.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string></string>
                    </dict>
                    <key>7</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.begin.perl</string>
                    </dict>
                    <key>8</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.begin.perl</string>
                    </dict>
                </dict>
                <key>contentName</key>
                <string>string.quoted.double.perl</string>
                <key>end</key>
                <string>(?x)
                (?:
                    ((?!\3)\)|(?!\4)&gt;|(?!\5)\]|(?!\6)})
                    |
                    ([\7\8[&amp;&amp;]])
                )
                </string>
                <key>endCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string></string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.end.perl</string>
                    </dict>
                </dict>
                <key>name</key>
                <string>meta.string.qq.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>include</key>
                        <string>#double</string>
                    </dict>
                </array>
            </dict>
            <dict>
                <key>begin</key>
                <string>(?x)
                \b ( (?:CORE::)? qx ) \s*
                (?:
                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                )
                |
                (`)
                </string>
                <key>beginCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.other.function.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string></string>
                    </dict>
                    <key>7</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.begin.perl</string>
                    </dict>
                    <key>8</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.begin.perl</string>
                    </dict>
                </dict>
                <key>contentName</key>
                <string>string.interpolated.perl</string>
                <key>end</key>
                <string>(?x)
                (?:
                    ((?!\3)\)|(?!\4)&gt;|(?!\5)\]|(?!\6)})
                    |
                    ([\7\8[&amp;&amp;]])
                )
                </string>
                <key>endCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string></string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.end.perl</string>
                    </dict>
                </dict>
                <key>name</key>
                <string>meta.string.qx.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=')</string>
                        <key>end</key>
                        <string>(?=')</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>include</key>
                                <string>#single</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>include</key>
                        <string>#double</string>
                    </dict>
                </array>
            </dict>
            <dict>
                <key>begin</key>
                <string>(?x)
                \b ( (?:CORE::)? qr ) \s*
                (?:
                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                )
                </string>
                <key>beginCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.other.function.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string></string>
                    </dict>
                    <key>7</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.begin.perl</string>
                    </dict>
                </dict>
                <key>contentName</key>
                <string>string.regexp.perl</string>
                <key>end</key>
                <string>(?x)
                (?:
                    ((?!\3)\)|(?!\4)&gt;|(?!\5)\]|(?!\6)})
                    |
                    ([\7[&amp;&amp;]])
                )
                ([adilmnopsux]*) (\w*)
                </string>
                <key>endCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string></string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.end.perl</string>
                    </dict>
                    <key>3</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.operator.perl</string>
                    </dict>
                    <key>4</key>
                    <dict>
                        <key>name</key>
                        <string>invalid.illegal.perl</string>
                    </dict>
                </dict>
                <key>name</key>
                <string>meta.regexp.qr.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=')</string>
                        <key>end</key>
                        <string>(?=')</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>include</key>
                                <string>#single</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>include</key>
                        <string>#double_regexp</string>
                    </dict>
                </array>
            </dict>
            <dict>
                <key>begin</key>
                <string><![CDATA[(?x)
                \b ( (?:CORE::)? m ) \s*
                (?:
                    ( (\() | (<) | (\[) | ({) ) | ([^[^!-~]\w\s])
                )
                |
                # Guessing whether a / is a division or the start of a regex is pretty tricky!
                (?=\s*/) # optimisation to fail faster
                (?:
                    # punctuation to expect before a /regex/
                    (?<=[^[^!-~]\w\s])
                    (?:
                        (?<=
                            # binding operators - definitely a regex
                            [=!~]~
                            |
                            # probably a regex
                            [,;!({\[] | => | && | \|\|
                        )
                        |
                        # assignment - but not a mutator, comparison, or variable
                        (?<= = )
                        (?<! [*/%%%x+\-.=!<>&|^@$] = )
                    )
                |
                    # named operators you'd expect before a /regex/
                    \b
                    (?:
                        # never gonna be perfect with the limitations of lookbehinds, but this is close
                        (?<= if | or )
                            (?: (?<=CORE::.{2}) (?<![\w'@$&*%].{8}|::.{8}|->.{8}) | (?<![\w'@$&*%].{2}|::.{2}|->.{2}) )
                        |
                        (?<= and | die | for | not | say | xor )
                            (?: (?<=CORE::.{3}) (?<![\w'@$&*%].{9}|::.{9}|->.{9}) | (?<![\w'@$&*%].{3}|::.{3}|->.{3}) )
                        |
                        (?<= exit | warn | when )
                            (?: (?<=CORE::.{4}) (?<![\w'@$&*%].{10}|::.{10}|->.{10}) | (?<![\w'@$&*%].{4}|::.{4}|->.{4}) )
                        |
                        (?<= print | split | until | while )
                            (?: (?<=CORE::.{5}) (?<![\w'@$&*%].{11}|::.{11}|->.{11}) | (?<![\w'@$&*%].{5}|::.{5}|->.{5}) )
                        |
                        (?<= return | unless )
                            (?: (?<=CORE::.{6}) (?<![\w'@$&*%].{12}|::.{12}|->.{12}) | (?<![\w'@$&*%].{6}|::.{6}|->.{6}) )
                        |
                        (?<= defined | foreach )
                            (?: (?<=CORE::.{7}) (?<![\w'@$&*%].{13}|::.{13}|->.{13}) | (?<![\w'@$&*%].{7}|::.{7}|->.{7}) )
                    )
                )
                \s*+ (\/)
                |
                # otherwise we can try for a single line /regex/ if it's after space
                (\/) (?<=\s/|^/)
                (?=
                    (?:
                        # something like / / is pretty common
                        \s+
                        |
                        # this means no spaces at the start or end unless they're backslashed
                        # so /\ woo regex\ / works
                        (?!\s)
                        (?: [^\\/]   | \\. )*
                        (?: [^\\/\s] | \\. )
                    )
                    \/
                )
                ]]></string>
                <key>beginCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.other.function.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string></string>
                    </dict>
                    <key>7</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.begin.perl</string>
                    </dict>
                    <key>8</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.begin.perl</string>
                    </dict>
                    <key>9</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.begin.perl</string>
                    </dict>
                </dict>
                <key>contentName</key>
                <string>string.regexp.perl</string>
                <key>end</key>
                <string>(?x)
                (?:
                    ((?!\3)\)|(?!\4)&gt;|(?!\5)\]|(?!\6)})
                    |
                    ([\7\8\9[&amp;&amp;]])
                )
                ([acdgilmnopsux]*) (\w*)
                </string>
                <key>endCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string></string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>punctuation.definition.string.end.perl</string>
                    </dict>
                    <key>3</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.operator.perl</string>
                    </dict>
                    <key>4</key>
                    <dict>
                        <key>name</key>
                        <string>invalid.illegal.perl</string>
                    </dict>
                </dict>
                <key>name</key>
                <string>meta.regexp.m.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=')</string>
                        <key>end</key>
                        <string>(?=')</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>include</key>
                                <string>#single</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>include</key>
                        <string>#double_regexp</string>
                    </dict>
                </array>
            </dict>
            <dict>
                <key>begin</key>
                <string>(?x) \b (?= ( (?:CORE::)? s ) \s* ([^[^!-~]\w\s]) )</string>
                <key>end</key>
                <string>(?!\b\1\s*\2)</string>
                <key>name</key>
                <string>meta.regexp.s.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \! )</string>
                        <key>end</key>
                        <string>(?x) (\!) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\!)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\!)
                                (?:
                                    (?! \g<3> \! )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\!)</string>
                                <key>end</key>
                                <string>(?=\!)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \" )</string>
                        <key>end</key>
                        <string>(?x) (\") ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\")</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\")
                                (?:
                                    (?! \g<3> \" )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\")</string>
                                <key>end</key>
                                <string>(?=\")</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \# )</string>
                        <key>end</key>
                        <string>(?x) (\#) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\#)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\#)
                                (?:
                                    (?! \g<3> \# )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\#)</string>
                                <key>end</key>
                                <string>(?=\#)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \$ )</string>
                        <key>end</key>
                        <string>(?x) (\$) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\$)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\$)
                                (?:
                                    (?! \g<3> \$ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\$)</string>
                                <key>end</key>
                                <string>(?=\$)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \% )</string>
                        <key>end</key>
                        <string>(?x) (\%) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\%)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\%)
                                (?:
                                    (?! \g<3> \% )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\%)</string>
                                <key>end</key>
                                <string>(?=\%)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \&amp; )</string>
                        <key>end</key>
                        <string>(?x) (\&amp;) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\&amp;)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\&)
                                (?:
                                    (?! \g<3> \& )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\&amp;)</string>
                                <key>end</key>
                                <string>(?=\&amp;)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \' )</string>
                        <key>end</key>
                        <string>(?x) (\') ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\')</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\')
                                (?:
                                    (?! \g<3> \' )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\')</string>
                                <key>end</key>
                                <string>(?=\')</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\()</string>
                        <key>beginCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.other.function.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string></string>
                            </dict>
                        </dict>
                        <key>end</key>
                        <string>(?x)
                        (?&lt;!\()(?!\))
                        (?:
                            (?&lt;!\)|^)
                            (?:
                                (?&lt;![^\W[acdegilmnoprsux]])
                                ([acdegilmnoprsux]*)
                            )?
                            (\w*)
                        )?
                        </string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) (\)) (?: \s+ (\#.*) )? \s* \n</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>comment.line.number-sign.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string>(?x)
                                (?:
                                    (?&lt;=\S)
                                    |
                                    (?= ^ \s*+ [[^!-~]\w] )
                                )
                                (?:
                                    (?&lt;=\))
                                    (?: ([acdegilmnoprsux]) | (\w) )
                                )?
                                \)*
                                </string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>captures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string>comment.line.number-sign.perl</string>
                                            </dict>
                                        </dict>
                                        <key>match</key>
                                        <string>(?x) ^ \s* (\#.*)? \n</string>
                                    </dict>
                                    <dict>
                                        <key>begin</key>
                                        <string>(?x)
                                        ^ \s*
                                        (?:
                                            ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                        )
                                        </string>
                                        <key>beginCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>6</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.begin.perl</string>
                                            </dict>
                                        </dict>
                                        <key>end</key>
                                        <string>((?!\2)\)|(?!\3)&gt;|(?!\4)\]|(?!\5)})|([\6[&amp;&amp;]])</string>
                                        <key>endCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>2</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.end.perl</string>
                                            </dict>
                                        </dict>
                                        <key>patterns</key>
                                        <array>
                                            <dict>
                                                <key>include</key>
                                                <string>#double_or_single</string>
                                            </dict>
                                        </array>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (\)) \s*
                                (?:
                                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                )
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (?:
                                    ((?!\3)\)|(?!\4)>|(?!\5)\]|(?!\6)})|([\7[&&]])
                                )
                                (?:
                                    (?<=\))
                                    (?: ([acdegilmnoprsux]) | (\w) )
                                )?
                                \)*
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>\)</string>
                                <key>name</key>
                                <string></string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\()</string>
                                <key>end</key>
                                <string>(?=\))</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \) )</string>
                        <key>end</key>
                        <string>(?x) (\)) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\))</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\))
                                (?:
                                    (?! \g<3> \) )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\))</string>
                                <key>end</key>
                                <string>(?=\))</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \* )</string>
                        <key>end</key>
                        <string>(?x) (\*) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\*)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\*)
                                (?:
                                    (?! \g<3> \* )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\*)</string>
                                <key>end</key>
                                <string>(?=\*)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \+ )</string>
                        <key>end</key>
                        <string>(?x) (\+) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\+)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\+)
                                (?:
                                    (?! \g<3> \+ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\+)</string>
                                <key>end</key>
                                <string>(?=\+)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \, )</string>
                        <key>end</key>
                        <string>(?x) (\,) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\,)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\,)
                                (?:
                                    (?! \g<3> \, )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\,)</string>
                                <key>end</key>
                                <string>(?=\,)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \- )</string>
                        <key>end</key>
                        <string>(?x) (\-) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\-)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\-)
                                (?:
                                    (?! \g<3> \- )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\-)</string>
                                <key>end</key>
                                <string>(?=\-)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \. )</string>
                        <key>end</key>
                        <string>(?x) (\.) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\.)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\.)
                                (?:
                                    (?! \g<3> \. )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\.)</string>
                                <key>end</key>
                                <string>(?=\.)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \/ )</string>
                        <key>end</key>
                        <string>(?x) (\/) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\/)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\/)
                                (?:
                                    (?! \g<3> \/ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\/)</string>
                                <key>end</key>
                                <string>(?=\/)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \: )</string>
                        <key>end</key>
                        <string>(?x) (\:) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\:)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\:)
                                (?:
                                    (?! \g<3> \: )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\:)</string>
                                <key>end</key>
                                <string>(?=\:)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \; )</string>
                        <key>end</key>
                        <string>(?x) (\;) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\;)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\;)
                                (?:
                                    (?! \g<3> \; )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\;)</string>
                                <key>end</key>
                                <string>(?=\;)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\&lt;)</string>
                        <key>beginCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.other.function.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string></string>
                            </dict>
                        </dict>
                        <key>end</key>
                        <string><![CDATA[(?x)
                        (?<!\<)(?!\>)
                        (?:
                            (?<!\>|^)
                            (?:
                                (?<![^\W[acdegilmnoprsux]])
                                ([acdegilmnoprsux]*)
                            )?
                            (\w*)
                        )?
                        ]]></string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) (\&gt;) (?: \s+ (\#.*) )? \s* \n</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>comment.line.number-sign.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (?:
                                    (?<=\S)
                                    |
                                    (?= ^ \s*+ [[^!-~]\w] )
                                )
                                (?:
                                    (?<=\>)
                                    (?: ([acdegilmnoprsux]) | (\w) )
                                )?
                                \>*
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>captures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string>comment.line.number-sign.perl</string>
                                            </dict>
                                        </dict>
                                        <key>match</key>
                                        <string>(?x) ^ \s* (\#.*)? \n</string>
                                    </dict>
                                    <dict>
                                        <key>begin</key>
                                        <string>(?x)
                                        ^ \s*
                                        (?:
                                            ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                        )
                                        </string>
                                        <key>beginCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>6</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.begin.perl</string>
                                            </dict>
                                        </dict>
                                        <key>end</key>
                                        <string>((?!\2)\)|(?!\3)&gt;|(?!\4)\]|(?!\5)})|([\6[&amp;&amp;]])</string>
                                        <key>endCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>2</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.end.perl</string>
                                            </dict>
                                        </dict>
                                        <key>patterns</key>
                                        <array>
                                            <dict>
                                                <key>include</key>
                                                <string>#double_or_single</string>
                                            </dict>
                                        </array>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (\&gt;) \s*
                                (?:
                                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                )
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (?:
                                    ((?!\3)\)|(?!\4)>|(?!\5)\]|(?!\6)})|([\7[&&]])
                                )
                                (?:
                                    (?<=\>)
                                    (?: ([acdegilmnoprsux]) | (\w) )
                                )?
                                \>*
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>\&gt;</string>
                                <key>name</key>
                                <string></string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\&lt;)</string>
                                <key>end</key>
                                <string>(?=\&gt;)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \= )</string>
                        <key>end</key>
                        <string>(?x) (\=) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\=)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\=)
                                (?:
                                    (?! \g<3> \= )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\=)</string>
                                <key>end</key>
                                <string>(?=\=)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \&gt; )</string>
                        <key>end</key>
                        <string>(?x) (\&gt;) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\&gt;)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\>)
                                (?:
                                    (?! \g<3> \> )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\&gt;)</string>
                                <key>end</key>
                                <string>(?=\&gt;)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \? )</string>
                        <key>end</key>
                        <string>(?x) (\?) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\?)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\?)
                                (?:
                                    (?! \g<3> \? )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\?)</string>
                                <key>end</key>
                                <string>(?=\?)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \@ )</string>
                        <key>end</key>
                        <string>(?x) (\@) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\@)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\@)
                                (?:
                                    (?! \g<3> \@ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\@)</string>
                                <key>end</key>
                                <string>(?=\@)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\[)</string>
                        <key>beginCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.other.function.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string></string>
                            </dict>
                        </dict>
                        <key>end</key>
                        <string>(?x)
                        (?&lt;!\[)(?!\])
                        (?:
                            (?&lt;!\]|^)
                            (?:
                                (?&lt;![^\W[acdegilmnoprsux]])
                                ([acdegilmnoprsux]*)
                            )?
                            (\w*)
                        )?
                        </string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) (\]) (?: \s+ (\#.*) )? \s* \n</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>comment.line.number-sign.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string>(?x)
                                (?:
                                    (?&lt;=\S)
                                    |
                                    (?= ^ \s*+ [[^!-~]\w] )
                                )
                                (?:
                                    (?&lt;=\])
                                    (?: ([acdegilmnoprsux]) | (\w) )
                                )?
                                \]*
                                </string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>captures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string>comment.line.number-sign.perl</string>
                                            </dict>
                                        </dict>
                                        <key>match</key>
                                        <string>(?x) ^ \s* (\#.*)? \n</string>
                                    </dict>
                                    <dict>
                                        <key>begin</key>
                                        <string>(?x)
                                        ^ \s*
                                        (?:
                                            ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                        )
                                        </string>
                                        <key>beginCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>6</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.begin.perl</string>
                                            </dict>
                                        </dict>
                                        <key>end</key>
                                        <string>((?!\2)\)|(?!\3)&gt;|(?!\4)\]|(?!\5)})|([\6[&amp;&amp;]])</string>
                                        <key>endCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>2</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.end.perl</string>
                                            </dict>
                                        </dict>
                                        <key>patterns</key>
                                        <array>
                                            <dict>
                                                <key>include</key>
                                                <string>#double_or_single</string>
                                            </dict>
                                        </array>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (\]) \s*
                                (?:
                                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                )
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (?:
                                    ((?!\3)\)|(?!\4)>|(?!\5)\]|(?!\6)})|([\7[&&]])
                                )
                                (?:
                                    (?<=\])
                                    (?: ([acdegilmnoprsux]) | (\w) )
                                )?
                                \]*
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>\]</string>
                                <key>name</key>
                                <string></string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\[)</string>
                                <key>end</key>
                                <string>(?=\])</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \\ )</string>
                        <key>end</key>
                        <string>(?x) (\\) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\\)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\\)
                                (?:
                                    (?! \g<3> \\ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\\)</string>
                                <key>end</key>
                                <string>(?=\\)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \] )</string>
                        <key>end</key>
                        <string>(?x) (\]) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\])</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\])
                                (?:
                                    (?! \g<3> \] )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\])</string>
                                <key>end</key>
                                <string>(?=\])</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \^ )</string>
                        <key>end</key>
                        <string>(?x) (\^) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\^)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\^)
                                (?:
                                    (?! \g<3> \^ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\^)</string>
                                <key>end</key>
                                <string>(?=\^)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \` )</string>
                        <key>end</key>
                        <string>(?x) (\`) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\`)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\`)
                                (?:
                                    (?! \g<3> \` )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\`)</string>
                                <key>end</key>
                                <string>(?=\`)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\{)</string>
                        <key>beginCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.other.function.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string></string>
                            </dict>
                        </dict>
                        <key>end</key>
                        <string>(?x)
                        (?&lt;!\{)(?!\})
                        (?:
                            (?&lt;!\}|^)
                            (?:
                                (?&lt;![^\W[acdegilmnoprsux]])
                                ([acdegilmnoprsux]*)
                            )?
                            (\w*)
                        )?
                        </string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) (\}) (?: \s+ (\#.*) )? \s* \n</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>comment.line.number-sign.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string>(?x)
                                (?:
                                    (?&lt;=\S)
                                    |
                                    (?= ^ \s*+ [[^!-~]\w] )
                                )
                                (?:
                                    (?&lt;=\})
                                    (?: ([acdegilmnoprsux]) | (\w) )
                                )?
                                \}*
                                </string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>captures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string>comment.line.number-sign.perl</string>
                                            </dict>
                                        </dict>
                                        <key>match</key>
                                        <string>(?x) ^ \s* (\#.*)? \n</string>
                                    </dict>
                                    <dict>
                                        <key>begin</key>
                                        <string>(?x)
                                        ^ \s*
                                        (?:
                                            ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                        )
                                        </string>
                                        <key>beginCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>6</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.begin.perl</string>
                                            </dict>
                                        </dict>
                                        <key>end</key>
                                        <string>((?!\2)\)|(?!\3)&gt;|(?!\4)\]|(?!\5)})|([\6[&amp;&amp;]])</string>
                                        <key>endCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>2</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.end.perl</string>
                                            </dict>
                                        </dict>
                                        <key>patterns</key>
                                        <array>
                                            <dict>
                                                <key>include</key>
                                                <string>#double_or_single</string>
                                            </dict>
                                        </array>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (\}) \s*
                                (?:
                                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                )
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (?:
                                    ((?!\3)\)|(?!\4)>|(?!\5)\]|(?!\6)})|([\7[&&]])
                                )
                                (?:
                                    (?<=\})
                                    (?: ([acdegilmnoprsux]) | (\w) )
                                )?
                                \}*
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>\}</string>
                                <key>name</key>
                                <string></string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\{)</string>
                                <key>end</key>
                                <string>(?=\})</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \| )</string>
                        <key>end</key>
                        <string>(?x) (\|) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\|)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\|)
                                (?:
                                    (?! \g<3> \| )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\|)</string>
                                <key>end</key>
                                <string>(?=\|)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \} )</string>
                        <key>end</key>
                        <string>(?x) (\}) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\})</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\})
                                (?:
                                    (?! \g<3> \} )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\})</string>
                                <key>end</key>
                                <string>(?=\})</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \~ )</string>
                        <key>end</key>
                        <string>(?x) (\~) ([acdegilmnoprsux]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\~)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\~)
                                (?:
                                    (?! \g<3> \~ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\~)</string>
                                <key>end</key>
                                <string>(?=\~)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                </array>
            </dict>
            <dict>
                <key>begin</key>
                <string>(?x) \b (?= ( (?:CORE::)? (?:tr|y) ) \s* ([^[^!-~]\w\s]) )</string>
                <key>end</key>
                <string>(?!\b\1\s*\2)</string>
                <key>name</key>
                <string>meta.tr.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \! )</string>
                        <key>end</key>
                        <string>(?x) (\!) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\!)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\!)
                                (?:
                                    (?! \g<3> \! )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\!)</string>
                                <key>end</key>
                                <string>(?=\!)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \" )</string>
                        <key>end</key>
                        <string>(?x) (\") ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\")</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\")
                                (?:
                                    (?! \g<3> \" )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\")</string>
                                <key>end</key>
                                <string>(?=\")</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \# )</string>
                        <key>end</key>
                        <string>(?x) (\#) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\#)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\#)
                                (?:
                                    (?! \g<3> \# )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\#)</string>
                                <key>end</key>
                                <string>(?=\#)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \$ )</string>
                        <key>end</key>
                        <string>(?x) (\$) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\$)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\$)
                                (?:
                                    (?! \g<3> \$ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\$)</string>
                                <key>end</key>
                                <string>(?=\$)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \% )</string>
                        <key>end</key>
                        <string>(?x) (\%) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\%)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\%)
                                (?:
                                    (?! \g<3> \% )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\%)</string>
                                <key>end</key>
                                <string>(?=\%)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \&amp; )</string>
                        <key>end</key>
                        <string>(?x) (\&amp;) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\&amp;)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\&)
                                (?:
                                    (?! \g<3> \& )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\&amp;)</string>
                                <key>end</key>
                                <string>(?=\&amp;)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \' )</string>
                        <key>end</key>
                        <string>(?x) (\') ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\')</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\')
                                (?:
                                    (?! \g<3> \' )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\')</string>
                                <key>end</key>
                                <string>(?=\')</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\()</string>
                        <key>beginCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.other.function.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string></string>
                            </dict>
                        </dict>
                        <key>end</key>
                        <string>(?x)
                        (?&lt;!\()(?!\))
                        (?:
                            (?&lt;!\)|^)
                            (?:
                                (?&lt;![^\W[cdrs]])
                                ([cdrs]*)
                            )?
                            (\w*)
                        )?
                        </string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) (\)) (?: \s+ (\#.*) )? \s* \n</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>comment.line.number-sign.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string>(?x)
                                (?:
                                    (?&lt;=\S)
                                    |
                                    (?= ^ \s*+ [[^!-~]\w] )
                                )
                                (?:
                                    (?&lt;=\))
                                    (?: ([cdrs]) | (\w) )
                                )?
                                \)*
                                </string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>captures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string>comment.line.number-sign.perl</string>
                                            </dict>
                                        </dict>
                                        <key>match</key>
                                        <string>(?x) ^ \s* (\#.*)? \n</string>
                                    </dict>
                                    <dict>
                                        <key>begin</key>
                                        <string>(?x)
                                        ^ \s*
                                        (?:
                                            ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                        )
                                        </string>
                                        <key>beginCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>6</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.begin.perl</string>
                                            </dict>
                                        </dict>
                                        <key>end</key>
                                        <string>((?!\2)\)|(?!\3)&gt;|(?!\4)\]|(?!\5)})|([\6[&amp;&amp;]])</string>
                                        <key>endCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>2</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.end.perl</string>
                                            </dict>
                                        </dict>
                                        <key>patterns</key>
                                        <array>
                                            <dict>
                                                <key>include</key>
                                                <string>#double_or_single</string>
                                            </dict>
                                        </array>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (\)) \s*
                                (?:
                                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                )
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (?:
                                    ((?!\3)\)|(?!\4)>|(?!\5)\]|(?!\6)})|([\7[&&]])
                                )
                                (?:
                                    (?<=\))
                                    (?: ([cdrs]) | (\w) )
                                )?
                                \)*
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>\)</string>
                                <key>name</key>
                                <string></string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\()</string>
                                <key>end</key>
                                <string>(?=\))</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \) )</string>
                        <key>end</key>
                        <string>(?x) (\)) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\))</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\))
                                (?:
                                    (?! \g<3> \) )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\))</string>
                                <key>end</key>
                                <string>(?=\))</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \* )</string>
                        <key>end</key>
                        <string>(?x) (\*) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\*)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\*)
                                (?:
                                    (?! \g<3> \* )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\*)</string>
                                <key>end</key>
                                <string>(?=\*)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \+ )</string>
                        <key>end</key>
                        <string>(?x) (\+) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\+)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\+)
                                (?:
                                    (?! \g<3> \+ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\+)</string>
                                <key>end</key>
                                <string>(?=\+)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \, )</string>
                        <key>end</key>
                        <string>(?x) (\,) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\,)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\,)
                                (?:
                                    (?! \g<3> \, )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\,)</string>
                                <key>end</key>
                                <string>(?=\,)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \- )</string>
                        <key>end</key>
                        <string>(?x) (\-) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\-)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\-)
                                (?:
                                    (?! \g<3> \- )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\-)</string>
                                <key>end</key>
                                <string>(?=\-)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \. )</string>
                        <key>end</key>
                        <string>(?x) (\.) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\.)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\.)
                                (?:
                                    (?! \g<3> \. )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\.)</string>
                                <key>end</key>
                                <string>(?=\.)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \/ )</string>
                        <key>end</key>
                        <string>(?x) (\/) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\/)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\/)
                                (?:
                                    (?! \g<3> \/ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\/)</string>
                                <key>end</key>
                                <string>(?=\/)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \: )</string>
                        <key>end</key>
                        <string>(?x) (\:) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\:)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\:)
                                (?:
                                    (?! \g<3> \: )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\:)</string>
                                <key>end</key>
                                <string>(?=\:)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \; )</string>
                        <key>end</key>
                        <string>(?x) (\;) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\;)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\;)
                                (?:
                                    (?! \g<3> \; )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\;)</string>
                                <key>end</key>
                                <string>(?=\;)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\&lt;)</string>
                        <key>beginCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.other.function.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string></string>
                            </dict>
                        </dict>
                        <key>end</key>
                        <string><![CDATA[(?x)
                        (?<!\<)(?!\>)
                        (?:
                            (?<!\>|^)
                            (?:
                                (?<![^\W[cdrs]])
                                ([cdrs]*)
                            )?
                            (\w*)
                        )?
                        ]]></string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) (\&gt;) (?: \s+ (\#.*) )? \s* \n</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>comment.line.number-sign.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (?:
                                    (?<=\S)
                                    |
                                    (?= ^ \s*+ [[^!-~]\w] )
                                )
                                (?:
                                    (?<=\>)
                                    (?: ([cdrs]) | (\w) )
                                )?
                                \>*
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>captures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string>comment.line.number-sign.perl</string>
                                            </dict>
                                        </dict>
                                        <key>match</key>
                                        <string>(?x) ^ \s* (\#.*)? \n</string>
                                    </dict>
                                    <dict>
                                        <key>begin</key>
                                        <string>(?x)
                                        ^ \s*
                                        (?:
                                            ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                        )
                                        </string>
                                        <key>beginCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>6</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.begin.perl</string>
                                            </dict>
                                        </dict>
                                        <key>end</key>
                                        <string>((?!\2)\)|(?!\3)&gt;|(?!\4)\]|(?!\5)})|([\6[&amp;&amp;]])</string>
                                        <key>endCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>2</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.end.perl</string>
                                            </dict>
                                        </dict>
                                        <key>patterns</key>
                                        <array>
                                            <dict>
                                                <key>include</key>
                                                <string>#double_or_single</string>
                                            </dict>
                                        </array>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (\&gt;) \s*
                                (?:
                                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                )
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (?:
                                    ((?!\3)\)|(?!\4)>|(?!\5)\]|(?!\6)})|([\7[&&]])
                                )
                                (?:
                                    (?<=\>)
                                    (?: ([cdrs]) | (\w) )
                                )?
                                \>*
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>\&gt;</string>
                                <key>name</key>
                                <string></string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\&lt;)</string>
                                <key>end</key>
                                <string>(?=\&gt;)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \= )</string>
                        <key>end</key>
                        <string>(?x) (\=) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\=)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\=)
                                (?:
                                    (?! \g<3> \= )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\=)</string>
                                <key>end</key>
                                <string>(?=\=)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \&gt; )</string>
                        <key>end</key>
                        <string>(?x) (\&gt;) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\&gt;)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\>)
                                (?:
                                    (?! \g<3> \> )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\&gt;)</string>
                                <key>end</key>
                                <string>(?=\&gt;)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \? )</string>
                        <key>end</key>
                        <string>(?x) (\?) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\?)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\?)
                                (?:
                                    (?! \g<3> \? )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\?)</string>
                                <key>end</key>
                                <string>(?=\?)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \@ )</string>
                        <key>end</key>
                        <string>(?x) (\@) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\@)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\@)
                                (?:
                                    (?! \g<3> \@ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\@)</string>
                                <key>end</key>
                                <string>(?=\@)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\[)</string>
                        <key>beginCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.other.function.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string></string>
                            </dict>
                        </dict>
                        <key>end</key>
                        <string>(?x)
                        (?&lt;!\[)(?!\])
                        (?:
                            (?&lt;!\]|^)
                            (?:
                                (?&lt;![^\W[cdrs]])
                                ([cdrs]*)
                            )?
                            (\w*)
                        )?
                        </string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) (\]) (?: \s+ (\#.*) )? \s* \n</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>comment.line.number-sign.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string>(?x)
                                (?:
                                    (?&lt;=\S)
                                    |
                                    (?= ^ \s*+ [[^!-~]\w] )
                                )
                                (?:
                                    (?&lt;=\])
                                    (?: ([cdrs]) | (\w) )
                                )?
                                \]*
                                </string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>captures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string>comment.line.number-sign.perl</string>
                                            </dict>
                                        </dict>
                                        <key>match</key>
                                        <string>(?x) ^ \s* (\#.*)? \n</string>
                                    </dict>
                                    <dict>
                                        <key>begin</key>
                                        <string>(?x)
                                        ^ \s*
                                        (?:
                                            ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                        )
                                        </string>
                                        <key>beginCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>6</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.begin.perl</string>
                                            </dict>
                                        </dict>
                                        <key>end</key>
                                        <string>((?!\2)\)|(?!\3)&gt;|(?!\4)\]|(?!\5)})|([\6[&amp;&amp;]])</string>
                                        <key>endCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>2</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.end.perl</string>
                                            </dict>
                                        </dict>
                                        <key>patterns</key>
                                        <array>
                                            <dict>
                                                <key>include</key>
                                                <string>#double_or_single</string>
                                            </dict>
                                        </array>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (\]) \s*
                                (?:
                                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                )
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (?:
                                    ((?!\3)\)|(?!\4)>|(?!\5)\]|(?!\6)})|([\7[&&]])
                                )
                                (?:
                                    (?<=\])
                                    (?: ([cdrs]) | (\w) )
                                )?
                                \]*
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>\]</string>
                                <key>name</key>
                                <string></string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\[)</string>
                                <key>end</key>
                                <string>(?=\])</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \\ )</string>
                        <key>end</key>
                        <string>(?x) (\\) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\\)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\\)
                                (?:
                                    (?! \g<3> \\ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\\)</string>
                                <key>end</key>
                                <string>(?=\\)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \] )</string>
                        <key>end</key>
                        <string>(?x) (\]) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\])</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\])
                                (?:
                                    (?! \g<3> \] )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\])</string>
                                <key>end</key>
                                <string>(?=\])</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \^ )</string>
                        <key>end</key>
                        <string>(?x) (\^) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\^)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\^)
                                (?:
                                    (?! \g<3> \^ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\^)</string>
                                <key>end</key>
                                <string>(?=\^)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \` )</string>
                        <key>end</key>
                        <string>(?x) (\`) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\`)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\`)
                                (?:
                                    (?! \g<3> \` )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\`)</string>
                                <key>end</key>
                                <string>(?=\`)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\{)</string>
                        <key>beginCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.other.function.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string></string>
                            </dict>
                        </dict>
                        <key>end</key>
                        <string>(?x)
                        (?&lt;!\{)(?!\})
                        (?:
                            (?&lt;!\}|^)
                            (?:
                                (?&lt;![^\W[cdrs]])
                                ([cdrs]*)
                            )?
                            (\w*)
                        )?
                        </string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) (\}) (?: \s+ (\#.*) )? \s* \n</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>comment.line.number-sign.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string>(?x)
                                (?:
                                    (?&lt;=\S)
                                    |
                                    (?= ^ \s*+ [[^!-~]\w] )
                                )
                                (?:
                                    (?&lt;=\})
                                    (?: ([cdrs]) | (\w) )
                                )?
                                \}*
                                </string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>captures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string>comment.line.number-sign.perl</string>
                                            </dict>
                                        </dict>
                                        <key>match</key>
                                        <string>(?x) ^ \s* (\#.*)? \n</string>
                                    </dict>
                                    <dict>
                                        <key>begin</key>
                                        <string>(?x)
                                        ^ \s*
                                        (?:
                                            ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                        )
                                        </string>
                                        <key>beginCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>6</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.begin.perl</string>
                                            </dict>
                                        </dict>
                                        <key>end</key>
                                        <string>((?!\2)\)|(?!\3)&gt;|(?!\4)\]|(?!\5)})|([\6[&amp;&amp;]])</string>
                                        <key>endCaptures</key>
                                        <dict>
                                            <key>1</key>
                                            <dict>
                                                <key>name</key>
                                                <string></string>
                                            </dict>
                                            <key>2</key>
                                            <dict>
                                                <key>name</key>
                                                <string>punctuation.definition.string.end.perl</string>
                                            </dict>
                                        </dict>
                                        <key>patterns</key>
                                        <array>
                                            <dict>
                                                <key>include</key>
                                                <string>#double_or_single</string>
                                            </dict>
                                        </array>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (\}) \s*
                                (?:
                                    ( (\() | (&lt;) | (\[) | ({) ) | ([^[^!-~]\w\s])
                                )
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (?:
                                    ((?!\3)\)|(?!\4)>|(?!\5)\]|(?!\6)})|([\7[&&]])
                                )
                                (?:
                                    (?<=\})
                                    (?: ([cdrs]) | (\w) )
                                )?
                                \}*
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string></string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.operator.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>invalid.illegal.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>\}</string>
                                <key>name</key>
                                <string></string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\{)</string>
                                <key>end</key>
                                <string>(?=\})</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \| )</string>
                        <key>end</key>
                        <string>(?x) (\|) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\|)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\|)
                                (?:
                                    (?! \g<3> \| )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\|)</string>
                                <key>end</key>
                                <string>(?=\|)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \} )</string>
                        <key>end</key>
                        <string>(?x) (\}) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\})</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\})
                                (?:
                                    (?! \g<3> \} )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\})</string>
                                <key>end</key>
                                <string>(?=\})</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?x) (?= (?:CORE::)?+ \w+ \s* \~ )</string>
                        <key>end</key>
                        <string>(?x) (\~) ([cdrs]*) (\w*)</string>
                        <key>endCaptures</key>
                        <dict>
                            <key>1</key>
                            <dict>
                                <key>name</key>
                                <string>punctuation.definition.string.end.perl</string>
                            </dict>
                            <key>2</key>
                            <dict>
                                <key>name</key>
                                <string>keyword.operator.perl</string>
                            </dict>
                            <key>3</key>
                            <dict>
                                <key>name</key>
                                <string>invalid.illegal.perl</string>
                            </dict>
                        </dict>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x) ( (?:CORE::)?+ \w+ ) \s* (\~)</string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>keyword.other.function.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                </dict>
                                <key>end</key>
                                <string><![CDATA[(?x)
                                (\~)
                                (?:
                                    (?! \g<3> \~ )
                                    |
                                    (?<=')(\g<3>)
                                    |
                                    ( \w+ \s* )
                                )
                                ]]></string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?&lt;=\~)</string>
                                <key>end</key>
                                <string>(?=\~)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_or_single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                </array>
            </dict>
            <dict>
                <key>include</key>
                <string>#heredoc_1</string>
            </dict>
            <dict>
                <key>captures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>string.quoted.double.perl</string>
                    </dict>
                </dict>
                <key>match</key>
                <string><![CDATA[(?x)
                <
                (?<! <<)
                (?! [\s=])
                (
                    (?:
                        \s* (?: [^<>=$\s\\]+ | \\. | [=$] (?! [>]) )
                    )*+
                )
                >
                (?! [>=])
                ]]></string>
                <key>name</key>
                <string>meta.string.glob</string>
            </dict>
            <dict>
                <key>captures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>constant.language.string.perl</string>
                    </dict>
                </dict>
                <key>match</key>
                <string>(?x)
                {(
                    \s* (-?[^\W\d]\w*)
                |
                    \g&lt;-1&gt; \s*
                )}
                </string>
            </dict>
            <dict>
                <key>begin</key>
                <string>(?x)
                (?:
                    \b (?:CORE::)? __(?:END|DATA)__ (?!\w|::|'[^\W\d])
                    |
                    [\cD\cZ]
                )
                [\d\D]*
                </string>
                <key>end</key>
                <string>(?!) # the end has no end</string>
                <key>name</key>
                <string>comment.block.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>include</key>
                        <string>#pod</string>
                    </dict>
                </array>
            </dict>
            <dict>
                <key>match</key>
                <string>\b(?:CORE::)?__(?:END|DATA|FILE|LINE|PACKAGE|SUB)__(?!\w|::|'[^\W\d])</string>
                <key>name</key>
                <string>constant.language.token.perl</string>
            </dict>
            <dict>
                <key>captures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.control.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>constant.language.label.perl</string>
                    </dict>
                </dict>
                <key>match</key>
                <string>(?x)
                \b ( (?:CORE::)? (?:dump|goto|last|next|redo) )
                #
                (?:
                    # open parens or space
                    (?: \s* (?:\(\s*)+ | \s+ )
                    #
                    # LABEL
                    ([^\W\d\p{Lower}][^\W\p{Lower}]*)
                )?
                #
                (?!\w|::|'[^\W\d])
                </string>
                <key>name</key>
                <string>meta.control.labelled.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>\belse\s+if(?!\w|::|'[^\W\d])</string>
                <key>name</key>
                <string>invalid.illegal.else_if.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>\b(?:CORE::)?(?:break|continue|default|dump|else|elsif|for|foreach|given|goto|if|last|next|redo|return|unless|until|when|while)(?!\w|::|'[^\W\d])</string>
                <key>name</key>
                <string>keyword.control.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>\b(?:CORE::)?(?:local|my|our|state)(?!\w|::|'[^\W\d])</string>
                <key>name</key>
                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>\b(?:CORE::)?(?:m|q|qq|qr|qw|qx|s|tr|y)\b</string>
                <key>name</key>
                <string>keyword.other.function.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>\b(?:CORE::)?(?:and|cmp|or|xor|not|lt|gt|le|ge|eq|ne|x)(?!\w|::|'[^\W\d])</string>
                <key>name</key>
                <string>keyword.other.operator.perl</string>
            </dict>
            <dict>
                <key>begin</key>
                <string>(?x)
                \b ( (?:CORE::)? format )
                #
                (?:
                    # format picture - copied from variable
                    (?: \s+
                        ((?!')(?:(?:::|'?[^\W\d])\w*)++)
                        (?= \s* (?:=\s*)? $ )
                    )
                |
                    (?!\w|::|'[^\W\d])
                )
                </string>
                <key>beginCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.other.function.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>constant.language.filehandle.perl</string>
                    </dict>
                </dict>
                <key>end</key>
                <string>(?x)
                (?! \s* (?:=\s*)? $ )
                |
                ^\.\s*$
                </string>
                <key>name</key>
                <string>meta.format.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>=\s*</string>
                        <key>contentName</key>
                        <string>string.unquoted.perl</string>
                        <key>end</key>
                        <string>(?=^\.\s*$)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>include</key>
                                <string>#line_comment</string>
                            </dict>
                        </array>
                    </dict>
                </array>
            </dict>
            <dict>
                <key>captures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.control.package.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>entity.name.type.class.perl constant.language.string.perl</string>
                    </dict>
                </dict>
                <key>match</key>
                <string>(?x)
                \b ( (?:CORE::)? package )
                (?:
                    \s+ (
                        # package name - copied from variable
                        (?!')(?:(?:::|'?[^\W\d])\w*)+
                    )
                    |
                    (?!\w|::|'[^\W\d])
                )
                </string>
                <key>name</key>
                <string>meta.class.perl</string>
            </dict>
            <dict>
                <key>captures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.control.package.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>constant.language.string.perl</string>
                    </dict>
                </dict>
                <key>match</key>
                <string>(?x)
                # autoquoting keywords
                \b ( (?:CORE::)? (?:use|require|no) )
                (?:
                    \s+ (
                        # not a version number
                        (?!v\d)
                        # package name - copied from variable
                        (?!')(?:(?:::|'?[^\W\d])\w*)+
                    )
                    |
                    (?!\w|::|'[^\W\d])
                )
                </string>
            </dict>
            <dict>
                <key>begin</key>
                <string>(?x)
                \b (?:
                    ( (?:CORE::)? sub )
                |
                    # non-standard sub definitions
                    (method|func|before|after|around)
                )
                #
                # sub name - copied from variable
                (?:
                    \s+ (
                        (?!')(?:(?:::|'?[^\W\d])\w*)++
                    )
                    |
                    (?!\w|::|'[^\W\d])
                )
                </string>
                <key>beginCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.control.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>support.function.perl</string>
                    </dict>
                    <key>3</key>
                    <dict>
                        <key>name</key>
                        <string>entity.name.function.perl</string>
                    </dict>
                </dict>
                <key>end</key>
                <string>(?x)
                (?! \s* [(] | \s* $ )
                |
                (?&lt;= [)] )
                </string>
                <key>name</key>
                <string>meta.function.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>\(</string>
                        <key>contentName</key>
                        <string>storage.type.method.perl</string>
                        <key>end</key>
                        <string>\)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>include</key>
                                <string>#single</string>
                            </dict>
                        </array>
                    </dict>
                </array>
            </dict>
            <dict>
                <key>match</key>
                <string>\b(?:CORE::)?(?:AUTOLOAD|BEGIN|CHECK|END|INIT|UNITCHECK)(?!\w|::|'[^\W\d])</string>
                <key>name</key>
                <string>meta.function.perl entity.name.function.perl</string>
            </dict>
            <dict>
                <key>captures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.other.function.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>constant.language.filehandle.perl</string>
                    </dict>
                    <key>3</key>
                    <dict>
                        <key>name</key>
                        <string>constant.language.filehandle.perl</string>
                    </dict>
                    <key>4</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.other.function.perl</string>
                    </dict>
                    <key>5</key>
                    <dict>
                        <key>name</key>
                        <string>keyword.other.filetest.perl</string>
                    </dict>
                    <key>7</key>
                    <dict>
                        <key>name</key>
                        <string>constant.language.filehandle.perl</string>
                    </dict>
                </dict>
                <key>match</key>
                <string><![CDATA[(?x)
                    # these functions can take two filehandles as arguments
                    \b ( (?:CORE::)? (?:accept|pipe|socketpair) ) \g<6>
                    (\g<7>) \s*,\s* (\g<7>)
                |
                    (?:
                        (
                           # these functions take a filehandle as the first argument
                            \b (?:CORE::)? (?:accept|bind|binmode|chdir|close|closedir|connect|eof|fcntl|fileno|flock|formline|getc|getpeername|getsockname|getsockopt|ioctl|listen|lstat|open|opendir|pipe|print|printf|read|readdir|readline|recv|rewinddir|say|seek|seekdir|select|send|setsockopt|shutdown|socket|socketpair|stat|sysopen|sysread|sysseek|syswrite|tell|telldir|truncate|write)
                        )
                    |
                        (
                            # filetest operators also take a filehandle as a first argument
                            -[ABCMORSTWXbcdefgkloprstuwxz] (?<!\w..)
                        )
                    )
                    (
                        (?!\w|::|'[^\W\d])
                        # open parens or space
                        (?: \s* (?:\(\s*)+ | \s+ )
                    )
                    (
                        # filehandle name - uppercase only
                        (?!')(?:(?:::|'?[^\W\d\p{Lower}])[^\W\p{Lower}]*)++
                        (?!\w|::|'[^\W\d]|\s*\()
                    )
                ]]></string>
                <key>name</key>
                <string>meta.function.filehandle.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>-[ABCMORSTWXbcdefgkloprstuwxz](?&lt;!\w..)(?!\w|::|'[^\W\d])</string>
                <key>name</key>
                <string>keyword.other.filetest.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>\b(?:CORE::)?(?:abs|accept|alarm|and|atan2|bind|binmode|bless|break|caller|chdir|chmod|chomp|chop|chown|chr|chroot|close|closedir|cmp|connect|continue|cos|crypt|dbmclose|dbmopen|default|defined|delete|die|do|dump|each|else|elsif|endgrent|endhostent|endnetent|endprotoent|endpwent|endservent|eof|eq|eval|evalbytes|exec|exists|exit|exp|fc|fcntl|fileno|flock|for|foreach|fork|format|formline|ge|getc|getgrent|getgrgid|getgrnam|gethostbyaddr|gethostbyname|gethostent|getlogin|getnetbyaddr|getnetbyname|getnetent|getpeername|getpgrp|getppid|getpriority|getprotobyname|getprotobynumber|getprotoent|getpwent|getpwnam|getpwuid|getservbyname|getservbyport|getservent|getsockname|getsockopt|given|glob|gmtime|goto|grep|gt|hex|if|index|int|ioctl|join|keys|kill|last|lc|lcfirst|le|length|link|listen|local|localtime|lock|log|lstat|lt|m|map|mkdir|msgctl|msgget|msgrcv|msgsnd|my|ne|next|no|not|oct|open|opendir|or|ord|our|pack|package|pipe|pop|pos|print|printf|prototype|push|q|qq|qr|quotemeta|qw|qx|rand|read|readdir|readline|readlink|readpipe|recv|redo|ref|rename|require|reset|return|reverse|rewinddir|rindex|rmdir|s|say|scalar|seek|seekdir|select|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|state|study|sub|substr|symlink|syscall|sysopen|sysread|sysseek|system|syswrite|tell|telldir|tie|tied|time|times|tr|truncate|uc|ucfirst|umask|undef|unless|unlink|unpack|unshift|untie|until|use|utime|values|vec|wait|waitpid|wantarray|warn|when|while|write|x|xor|y)(?!\w|::|'[^\W\d])</string>
                <key>name</key>
                <string>keyword.other.function.perl</string>
            </dict>
            <dict>
                <key>comment</key>
                <string>These aren't keywords, so CORE:: isn't applicable.</string>
                <key>match</key>
                <string>\b(?:ARGV|ARGVOUT|STDERR|STDIN|STDOUT|DATA)(?!\w|::|'[^\W\d])</string>
                <key>name</key>
                <string>constant.language.filehandle.perl</string>
            </dict>
            <dict>
                <key>captures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>constant.language.string.perl</string>
                    </dict>
                    <key>2</key>
                    <dict>
                        <key>name</key>
                        <string>support.function.method.perl</string>
                    </dict>
                </dict>
                <key>match</key>
                <string><![CDATA[(?x)
                # class name
                (?:
                    (?=[^[^\w:]\d])(?<!\w)
                    (\g<2>)
                )?
                \s* -> \s*
                #
                # method name
                (?!')((?:(?:::|'?[^\W\d])\w*)++)
                ]]></string>
                <key>name</key>
                <string>meta.operator.arrow.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>(?xi)
                \b(?:0b[01_]*)(?!\w)
                </string>
                <key>name</key>
                <string>punctuation.definition.number.binary.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>(?xi)
                \b(?:0[0-7_]+)(?!\w)
                </string>
                <key>name</key>
                <string>punctuation.definition.number.octal.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>(?xi)
                \b(?:0x[\h_]*)(?!\w)
                </string>
                <key>name</key>
                <string>punctuation.definition.number.hex.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string><![CDATA[(?x)
                \b (?:
                    v (\d[\d_]*) (\.\d[\d_]*)* # v with 1 or more digit groups
                    |
                    (?!0[\d_]) \g<1> \g<2>{2,} # no v with 3 or more digit groups
                )
                (?!\w)
                ]]></string>
                <key>name</key>
                <string>string.other.version.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>(?xi)
                (?:
                    (?:
                        # start with digit
                        \b (?!0[\d_]) \d[\d_]*+ \.?
                        |
                        # start with point
                        \B \. \d
                    )
                    [\d_]*
                    (?: e [+-]? [\d_]* )?  # possible exponent
                )
                (?!\w)
                </string>
                <key>name</key>
                <string>punctuation.definition.number.float.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>(?:\b\d|\B\.\d)\w*</string>
                <key>name</key>
                <string>invalid.illegal.number.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>\b[^\W\d\p{Lower}][^\W\p{Lower}]*+:(?!:)</string>
                <key>name</key>
                <string>constant.language.label.perl</string>
            </dict>
            <dict>
                <key>match</key>
                <string>(?=[^[^\w:]\d])(?&lt;!\w)(?:(?:::|'?[^\W\d])\w*)+</string>
                <key>name</key>
                <string>support.function.perl</string>
            </dict>
        </array>
        <key>repository</key>
        <dict>
            <key>double</key>
            <dict>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\!)</string>
                        <key>end</key>
                        <string>(?=\!)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\!]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\!]
                                            |
                                            [^}\!]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\")</string>
                        <key>end</key>
                        <string>(?=\")</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\"]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\"]
                                            |
                                            [^}\"]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\#)</string>
                        <key>end</key>
                        <string>(?=\#)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\#]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\#]
                                            |
                                            [^}\#]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\$)</string>
                        <key>end</key>
                        <string>(?=\$)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \\\$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\\\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\$]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\$]
                                            |
                                            [^}\$]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\%)</string>
                        <key>end</key>
                        <string>(?=\%)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\%]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\%]
                                            |
                                            [^}\%]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\&amp;)</string>
                        <key>end</key>
                        <string>(?=\&amp;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\&]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\&amp;]
                                            |
                                            [^}\&amp;]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\')</string>
                        <key>end</key>
                        <string>(?=\')</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\\\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\']
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\']
                                            |
                                            [^}\']
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\()</string>
                        <key>end</key>
                        <string>(?=\))</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\)]
                                                )
                                                |
                                                \{
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                \}
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        \{ (?!__)[_\h]* \}
                                    )
                                    |
                                    o \{ (?!__)[_0-7]* \}
                                    |
                                    [0-7]{1,3}
                                    |
                                    N \{
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\)]
                                            |
                                            [^}\)]
                                        )*+
                                    ) \}
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\(</string>
                                <key>end</key>
                                <string>\)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\))</string>
                        <key>end</key>
                        <string>(?=\))</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\)]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\)]
                                            |
                                            [^}\)]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\*)</string>
                        <key>end</key>
                        <string>(?=\*)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\*]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\*]
                                            |
                                            [^}\*]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\+)</string>
                        <key>end</key>
                        <string>(?=\+)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\+]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\\\+ (?:_?\h+)++
                                        |
                                        (?! U\\\+ )
                                        (?:
                                            \\[\\\+]
                                            |
                                            [^}\+]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\,)</string>
                        <key>end</key>
                        <string>(?=\,)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\,]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\,]
                                            |
                                            [^}\,]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\-)</string>
                        <key>end</key>
                        <string>(?=\-)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\-]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\-]
                                            |
                                            [^}\-]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\.)</string>
                        <key>end</key>
                        <string>(?=\.)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\.]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\.]
                                            |
                                            [^}\.]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\/)</string>
                        <key>end</key>
                        <string>(?=\/)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\/]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\/]
                                            |
                                            [^}\/]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\:)</string>
                        <key>end</key>
                        <string>(?=\:)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\\\:\\\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\:]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\:]
                                            |
                                            [^}\:]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\;)</string>
                        <key>end</key>
                        <string>(?=\;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\;]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\;]
                                            |
                                            [^}\;]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\&lt;)</string>
                        <key>end</key>
                        <string>(?=\&gt;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\>]
                                                )
                                                |
                                                \{
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                \}
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        \{ (?!__)[_\h]* \}
                                    )
                                    |
                                    o \{ (?!__)[_0-7]* \}
                                    |
                                    [0-7]{1,3}
                                    |
                                    N \{
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\&gt;]
                                            |
                                            [^}\&gt;]
                                        )*+
                                    ) \}
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\&lt;</string>
                                <key>end</key>
                                <string>\&gt;</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\=)</string>
                        <key>end</key>
                        <string>(?=\=)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\=]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\=]
                                            |
                                            [^}\=]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\&gt;)</string>
                        <key>end</key>
                        <string>(?=\&gt;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\>]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\&gt;]
                                            |
                                            [^}\&gt;]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\?)</string>
                        <key>end</key>
                        <string>(?=\?)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\?]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\?]
                                            |
                                            [^}\?]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\@)</string>
                        <key>end</key>
                        <string>(?=\@)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \\\@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\@]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\@]
                                            |
                                            [^}\@]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\[)</string>
                        <key>end</key>
                        <string>(?=\])</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\]]
                                                )
                                                |
                                                \{
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                \}
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        \{ (?!__)[_\h]* \}
                                    )
                                    |
                                    o \{ (?!__)[_0-7]* \}
                                    |
                                    [0-7]{1,3}
                                    |
                                    N \{
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\]]
                                            |
                                            [^}\]]
                                        )*+
                                    ) \}
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\[</string>
                                <key>end</key>
                                <string>\]</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\\)</string>
                        <key>end</key>
                        <string>(?=\\)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\\]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            [^}\\]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\])</string>
                        <key>end</key>
                        <string>(?=\])</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\]]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\]]
                                            |
                                            [^}\]]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\^)</string>
                        <key>end</key>
                        <string>(?=\^)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \\\^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\^]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\^]
                                            |
                                            [^}\^]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\`)</string>
                        <key>end</key>
                        <string>(?=\`)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\`]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\`]
                                            |
                                            [^}\`]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\{)</string>
                        <key>end</key>
                        <string>(?=\})</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\}]
                                                )
                                                |
                                                (\\?)\{
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                \k<-1>\}
                                                |
                                                (?=\\\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        (\\?)\{ (?!__)[_\h]* \k<-1>\}
                                    )
                                    |
                                    o (\\?)\{ (?!__)[_0-7]* \k<-1>\}
                                    |
                                    [0-7]{1,3}
                                    |
                                    N (\\?)\{
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            [^}\}]
                                        )*+
                                    ) \k<-1>\}
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                ]]></string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\{</string>
                                <key>end</key>
                                <string>\}</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\|)</string>
                        <key>end</key>
                        <string>(?=\|)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\|]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\|]
                                            |
                                            [^}\|]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\})</string>
                        <key>end</key>
                        <string>(?=\})</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\}]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            [^}\}]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\~)</string>
                        <key>end</key>
                        <string>(?=\~)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\~]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\~]
                                            |
                                            [^}\~]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>^</string>
                        <key>end</key>
                        <string>\n|(?&lt;=\n)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$ \s*
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )?
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\]
                                            |
                                            [^}]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                </array>
            </dict>
            <key>double_or_single</key>
            <dict>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=')</string>
                        <key>contentName</key>
                        <string>string.quoted.single.perl</string>
                        <key>end</key>
                        <string>(?=')</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>include</key>
                                <string>#single</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=(\()|(&lt;)|(\[)|({)|([^[^!-~]\w\s]))</string>
                        <key>contentName</key>
                        <string>string.quoted.double.perl</string>
                        <key>end</key>
                        <string>(?=(?!\1)\)|(?!\2)&gt;|(?!\3)\]|(?!\4)}|[\5[&amp;&amp;]])</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>include</key>
                                <string>#double</string>
                            </dict>
                        </array>
                    </dict>
                </array>
            </dict>
            <key>double_or_single_regexp</key>
            <dict>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=')</string>
                        <key>contentName</key>
                        <string>string.regexp.perl</string>
                        <key>end</key>
                        <string>(?=')</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>include</key>
                                <string>#single</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=(\()|(&lt;)|(\[)|({)|([^[^!-~]\w\s]))</string>
                        <key>contentName</key>
                        <string>string.regexp.perl</string>
                        <key>end</key>
                        <string>(?=(?!\1)\)|(?!\2)&gt;|(?!\3)\]|(?!\4)}|[\5[&amp;&amp;]])</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>include</key>
                                <string>#double_regexp</string>
                            </dict>
                        </array>
                    </dict>
                </array>
            </dict>
            <key>double_regexp</key>
            <dict>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\!)</string>
                        <key>end</key>
                        <string>(?=\!)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\!]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\!]
                                            |
                                            [^}\!]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\")</string>
                        <key>end</key>
                        <string>(?=\")</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\"]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\"]
                                            |
                                            [^}\"]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\#)</string>
                        <key>end</key>
                        <string>(?=\#)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\#]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\#]
                                            |
                                            [^}\#]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\$)</string>
                        <key>end</key>
                        <string>(?=\$)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \\\$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\\\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\$]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\$]
                                            |
                                            [^}\$]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\%)</string>
                        <key>end</key>
                        <string>(?=\%)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\%]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\%]
                                            |
                                            [^}\%]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\&amp;)</string>
                        <key>end</key>
                        <string>(?=\&amp;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\&]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\&amp;]
                                            |
                                            [^}\&amp;]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\')</string>
                        <key>end</key>
                        <string>(?=\')</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\\\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\']
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\']
                                            |
                                            [^}\']
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\()</string>
                        <key>end</key>
                        <string>(?=\))</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\)]
                                                )
                                                |
                                                \{
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                \}
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        \{ (?!__)[_\h]* \}
                                    )
                                    |
                                    o \{ (?!__)[_0-7]* \}
                                    |
                                    [0-7]{1,3}
                                    |
                                    N \{
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\)]
                                            |
                                            [^}\)]
                                        )*+
                                    ) \}
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\(</string>
                                <key>end</key>
                                <string>\)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\))</string>
                        <key>end</key>
                        <string>(?=\))</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\)]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\)]
                                            |
                                            [^}\)]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\*)</string>
                        <key>end</key>
                        <string>(?=\*)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\*]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\*]
                                            |
                                            [^}\*]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\+)</string>
                        <key>end</key>
                        <string>(?=\+)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\+]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\\\+ (?:_?\h+)++
                                        |
                                        (?! U\\\+ )
                                        (?:
                                            \\[\\\+]
                                            |
                                            [^}\+]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\,)</string>
                        <key>end</key>
                        <string>(?=\,)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\,]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\,]
                                            |
                                            [^}\,]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\-)</string>
                        <key>end</key>
                        <string>(?=\-)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\-]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\-]
                                            |
                                            [^}\-]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\.)</string>
                        <key>end</key>
                        <string>(?=\.)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\.]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\.]
                                            |
                                            [^}\.]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\/)</string>
                        <key>end</key>
                        <string>(?=\/)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\/]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\/]
                                            |
                                            [^}\/]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\:)</string>
                        <key>end</key>
                        <string>(?=\:)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\\\:\\\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\:]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\:]
                                            |
                                            [^}\:]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\;)</string>
                        <key>end</key>
                        <string>(?=\;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\;]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\;]
                                            |
                                            [^}\;]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\&lt;)</string>
                        <key>end</key>
                        <string>(?=\&gt;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\>]
                                                )
                                                |
                                                \{
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                \}
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        \{ (?!__)[_\h]* \}
                                    )
                                    |
                                    o \{ (?!__)[_0-7]* \}
                                    |
                                    [0-7]{1,3}
                                    |
                                    N \{
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\&gt;]
                                            |
                                            [^}\&gt;]
                                        )*+
                                    ) \}
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\&lt;</string>
                                <key>end</key>
                                <string>\&gt;</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\=)</string>
                        <key>end</key>
                        <string>(?=\=)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\=]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\=]
                                            |
                                            [^}\=]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\&gt;)</string>
                        <key>end</key>
                        <string>(?=\&gt;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\>]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\&gt;]
                                            |
                                            [^}\&gt;]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\?)</string>
                        <key>end</key>
                        <string>(?=\?)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\?]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\?]
                                            |
                                            [^}\?]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\@)</string>
                        <key>end</key>
                        <string>(?=\@)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \\\@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\@]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\@]
                                            |
                                            [^}\@]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\[)</string>
                        <key>end</key>
                        <string>(?=\])</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\]]
                                                )
                                                |
                                                \{
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                \}
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        \{ (?!__)[_\h]* \}
                                    )
                                    |
                                    o \{ (?!__)[_0-7]* \}
                                    |
                                    [0-7]{1,3}
                                    |
                                    N \{
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\]]
                                            |
                                            [^}\]]
                                        )*+
                                    ) \}
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\[</string>
                                <key>end</key>
                                <string>\]</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\\)</string>
                        <key>end</key>
                        <string>(?=\\)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\\]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            [^}\\]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\])</string>
                        <key>end</key>
                        <string>(?=\])</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\]]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\]]
                                            |
                                            [^}\]]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\^)</string>
                        <key>end</key>
                        <string>(?=\^)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \\\^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\^]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\^]
                                            |
                                            [^}\^]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\`)</string>
                        <key>end</key>
                        <string>(?=\`)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\`]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\`]
                                            |
                                            [^}\`]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\{)</string>
                        <key>end</key>
                        <string>(?=\})</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\}]
                                                )
                                                |
                                                (\\?)\{
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                \k<-1>\}
                                                |
                                                (?=\\\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        (\\?)\{ (?!__)[_\h]* \k<-1>\}
                                    )
                                    |
                                    o (\\?)\{ (?!__)[_0-7]* \k<-1>\}
                                    |
                                    [0-7]{1,3}
                                    |
                                    N (\\?)\{
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            [^}\}]
                                        )*+
                                    ) \k<-1>\}
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                ]]></string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\{</string>
                                <key>end</key>
                                <string>\}</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double_regexp</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\|)</string>
                        <key>end</key>
                        <string>(?=\|)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\|]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\|]
                                            |
                                            [^}\|]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\})</string>
                        <key>end</key>
                        <string>(?=\})</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\}]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            [^}\}]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\~)</string>
                        <key>end</key>
                        <string>(?=\~)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>match</key>
                                <string><![CDATA[(?x)
                                (?<variable>
                                    \@ \g<scalar_identifier>
                                    |
                                    \$
                                    (?<scalar_identifier>
                                        (?<scalar>
                                            (?:\$)+
                                            (?<identifier>
                                                (?<caret_id>
                                                    \^ [^\W\d\p{Lower}]
                                                )
                                                |
                                                (?<normal_id>
                                                    \d+
                                                    |
                                                    (?:
                                                        (?: (?:\:\:) | (?:\')?[^\W\d] ) \w*
                                                    )++
                                                    # |
                                                    # [^[^!-~]{\w\s\~]
                                                )
                                                |
                                                {
                                                \s* (?:
                                                    \g<variable> | \g<caret_id> \w* | \g<normal_id>
                                                ) \s*
                                                }
                                                |
                                                (?=\{)
                                            )
                                        )
                                        |
                                        \g<identifier>
                                    )
                                )
                                ]]></string>
                                <key>name</key>
                                <string>keyword.other.storage.perl storage.modifier.perl variable.parameter.perl variable.other.readwrite.global.perl</string>
                            </dict>
                            <dict>
                                <key>match</key>
                                <string>(?x)
                                \\ (?:
                                    x (?:
                                        \h{1,2}
                                        |
                                        { (?!__)[_\h]* }
                                    )
                                    |
                                    o { (?!__)[_0-7]* }
                                    |
                                    [0-7]{1,3}
                                    |
                                    N {
                                    (?:
                                        U\+ (?:_?\h+)++
                                        |
                                        (?! U\+ )
                                        (?:
                                            \\[\\\~]
                                            |
                                            [^}\~]
                                        )*+
                                    ) }
                                    |
                                    #c [^\P{ASCII}{]
                                    #|
                                    \p{Alnum}
                                )
                                </string>
                                <key>name</key>
                                <string>constant.character.escape.perl</string>
                            </dict>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\d\D]</string>
                            </dict>
                        </array>
                    </dict>
                </array>
            </dict>
            <key>heredoc_1</key>
            <dict>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?x)
                        &lt;&lt; (?=
                            [^\W\d]\w*
                            |
                            \d\w*[\p{Alpha}]\w*+ # word starting with digit but containing a non-digit
                            |
                            \\ \w*
                            |
                            \s* (['"`]) .*? \1
                        )
                        </string>
                        <key>end</key>
                        <string>$</string>
                        <key>name</key>
                        <string>meta.heredoc.perl</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (?:
                                    ( (?:[^\W\p{Lower}]*_)? CSS ) \b
                                    |
                                    \s* (["`'])
                                    (?:
                                        ((?&lt;=") \s* (?: (?:[^\W\p{Lower}]*_)? CSS ))
                                        |
                                        ((?&lt;=`) \s* (?: (?:[^\W\p{Lower}]*_)? CSS ))
                                        |
                                        (\s* (?: (?:[^\W\p{Lower}]*_)? CSS ))
                                    )
                                    (\2)
                                    |
                                    \\ ( (?:[^\W\p{Lower}]*_)? CSS ) \b
                                )
                                .* \n?
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>5</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>6</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>contentName</key>
                                <string>source.css.embedded.perl</string>
                                <key>end</key>
                                <string>^(\1\3)(\4)(\5\7)$</string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>source.css</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (?:
                                    ( (?:[^\W\p{Lower}]*_)? HTML ) \b
                                    |
                                    \s* (["`'])
                                    (?:
                                        ((?&lt;=") \s* (?: (?:[^\W\p{Lower}]*_)? HTML ))
                                        |
                                        ((?&lt;=`) \s* (?: (?:[^\W\p{Lower}]*_)? HTML ))
                                        |
                                        (\s* (?: (?:[^\W\p{Lower}]*_)? HTML ))
                                    )
                                    (\2)
                                    |
                                    \\ ( (?:[^\W\p{Lower}]*_)? HTML ) \b
                                )
                                .* \n?
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>5</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>6</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>contentName</key>
                                <string>text.html.basic.embedded.perl</string>
                                <key>end</key>
                                <string>^(\1\3)(\4)(\5\7)$</string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>text.html.basic</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (?:
                                    ( (?:[^\W\p{Lower}]*_)? (?:JS|JAVASCRIPT) ) \b
                                    |
                                    \s* (["`'])
                                    (?:
                                        ((?&lt;=") \s* (?: (?:[^\W\p{Lower}]*_)? (?:JS|JAVASCRIPT) ))
                                        |
                                        ((?&lt;=`) \s* (?: (?:[^\W\p{Lower}]*_)? (?:JS|JAVASCRIPT) ))
                                        |
                                        (\s* (?: (?:[^\W\p{Lower}]*_)? (?:JS|JAVASCRIPT) ))
                                    )
                                    (\2)
                                    |
                                    \\ ( (?:[^\W\p{Lower}]*_)? (?:JS|JAVASCRIPT) ) \b
                                )
                                .* \n?
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>5</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>6</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>contentName</key>
                                <string>source.js.embedded.perl</string>
                                <key>end</key>
                                <string>^(\1\3)(\4)(\5\7)$</string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>source.js</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (?:
                                    ( (?:[^\W\p{Lower}]*_)? PERL ) \b
                                    |
                                    \s* (["`'])
                                    (?:
                                        ((?&lt;=") \s* (?: (?:[^\W\p{Lower}]*_)? PERL ))
                                        |
                                        ((?&lt;=`) \s* (?: (?:[^\W\p{Lower}]*_)? PERL ))
                                        |
                                        (\s* (?: (?:[^\W\p{Lower}]*_)? PERL ))
                                    )
                                    (\2)
                                    |
                                    \\ ( (?:[^\W\p{Lower}]*_)? PERL ) \b
                                )
                                .* \n?
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>5</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>6</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>contentName</key>
                                <string>source.perl.embedded.perl</string>
                                <key>end</key>
                                <string>^(\1\3)(\4)(\5\7)$</string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>$self</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (?:
                                    ( (?:[^\W\p{Lower}]*_)? SQL ) \b
                                    |
                                    \s* (["`'])
                                    (?:
                                        ((?&lt;=") \s* (?: (?:[^\W\p{Lower}]*_)? SQL ))
                                        |
                                        ((?&lt;=`) \s* (?: (?:[^\W\p{Lower}]*_)? SQL ))
                                        |
                                        (\s* (?: (?:[^\W\p{Lower}]*_)? SQL ))
                                    )
                                    (\2)
                                    |
                                    \\ ( (?:[^\W\p{Lower}]*_)? SQL ) \b
                                )
                                .* \n?
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>5</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>6</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>contentName</key>
                                <string>source.sql.embedded.perl</string>
                                <key>end</key>
                                <string>^(\1\3)(\4)(\5\7)$</string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>source.sql</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (?:
                                    ( (?:[^\W\p{Lower}]*_)? XML ) \b
                                    |
                                    \s* (["`'])
                                    (?:
                                        ((?&lt;=") \s* (?: (?:[^\W\p{Lower}]*_)? XML ))
                                        |
                                        ((?&lt;=`) \s* (?: (?:[^\W\p{Lower}]*_)? XML ))
                                        |
                                        (\s* (?: (?:[^\W\p{Lower}]*_)? XML ))
                                    )
                                    (\2)
                                    |
                                    \\ ( (?:[^\W\p{Lower}]*_)? XML ) \b
                                )
                                .* \n?
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>5</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>6</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                    <key>7</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>contentName</key>
                                <string>text.xml.embedded.perl</string>
                                <key>end</key>
                                <string>^(\1\3)(\4)(\5\7)$</string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>text.xml</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (?:
                                    (\w+)
                                    |
                                    \s* (["`])
                                    (?:
                                        ((?&lt;=") .*?)
                                        |
                                        (.*?)
                                    )
                                    (\2)
                                )
                                .* \n?
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                    <key>5</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                </dict>
                                <key>contentName</key>
                                <string>string.unquoted.perl</string>
                                <key>end</key>
                                <string>^(\1\3)(\4)$</string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.double.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.interpolated.perl</string>
                                    </dict>
                                </dict>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#double</string>
                                    </dict>
                                </array>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>(?x)
                                (?:
                                    \\ (\w+)
                                    |
                                    \s* (') (.*?) (')
                                )
                                .* \n?
                                </string>
                                <key>beginCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>2</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.begin.perl</string>
                                    </dict>
                                    <key>3</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                    <key>4</key>
                                    <dict>
                                        <key>name</key>
                                        <string>punctuation.definition.string.end.perl</string>
                                    </dict>
                                </dict>
                                <key>contentName</key>
                                <string>string.unquoted.perl</string>
                                <key>end</key>
                                <string>^(\1\3)$</string>
                                <key>endCaptures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>string.quoted.single.perl</string>
                                    </dict>
                                </dict>
                            </dict>
                        </array>
                    </dict>
                </array>
            </dict>
            <key>line_comment</key>
            <dict>
                <key>match</key>
                <string>\#[\d\D]*</string>
                <key>name</key>
                <string>comment.line.number-sign.perl</string>
            </dict>
            <key>pod</key>
            <dict>
                <key>begin</key>
                <string>^=\p{Alpha}[\d\D]*</string>
                <key>end</key>
                <string>^=cut(?!\p{Alpha})[\d\D]*</string>
                <key>name</key>
                <string>meta.pod comment.block.perl</string>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>match</key>
                        <string>\t+</string>
                        <key>name</key>
                        <string>invalid.deprecated.perl</string>
                    </dict>
                </array>
            </dict>
            <key>regex_quantifier_curly</key>
            <dict>
                <key>begin</key>
                <string>(?x)
                (?={
                    (?&gt;0*(?=\d))
                    \d*?(\d??)(\d??)(\d??)(\d??)(\d??)(\d??)(\d??)(\d??)(\d??)(\d??)
                    ,? \d*+
                })
                </string>
                <key>comment</key>
                <string>For {n,m} to be a quantifier, n must exist, and m must be greater than n if it exists. Just take my word for it that this voodoo does all that and numeric comparison of m &gt; n up to an n that is 10 digits long.</string>
                <key>end</key>
                <string><![CDATA[(?x)
                ({
                    \d+
                    (?:
                        # m is empty
                        ,?
                        |
                        # otherwise numeric comparison!
                        , (?>0*(?=\d))
                        (?: \d{11,} | [&\1&\d&&[^0-\1]]\d{9} | \1
                        (?: \d{10,} | [&\2&\d&&[^0-\2]]\d{8} | \2
                        (?: \d{9,} | [&\3&\d&&[^0-\3]]\d{7} | \3
                        (?: \d{8,} | [&\4&\d&&[^0-\4]]\d{6} | \4
                        (?: \d{7,} | [&\5&\d&&[^0-\5]]\d{5} | \5
                        (?: \d{6,} | [&\6&\d&&[^0-\6]]\d{4} | \6
                        (?: \d{5,} | [&\7&\d&&[^0-\7]]\d{3} | \7
                        (?: \d{4,} | [&\8&\d&&[^0-\8]]\d{2} | \8
                        (?: \d{3,} | [&\9&\d&&[^0-\9]]\d{1} | \9
                        (?: \d{2,} | [&\10&\d&&[^0-\10]]\d{0}
                        ))))))))))
                    )
                })
                |
                # not a quantifier, but we have to match something to prevent infinite recursion
                {\d*,?\d*}
                ]]></string>
                <key>endCaptures</key>
                <dict>
                    <key>1</key>
                    <dict>
                        <key>name</key>
                        <string>string.regexp.perl</string>
                    </dict>
                </dict>
            </dict>
            <key>single</key>
            <dict>
                <key>patterns</key>
                <array>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\!)</string>
                        <key>end</key>
                        <string>(?=\!)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\!\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\")</string>
                        <key>end</key>
                        <string>(?=\")</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\"\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\#)</string>
                        <key>end</key>
                        <string>(?=\#)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\#\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\$)</string>
                        <key>end</key>
                        <string>(?=\$)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\$\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\%)</string>
                        <key>end</key>
                        <string>(?=\%)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\%\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\&amp;)</string>
                        <key>end</key>
                        <string>(?=\&amp;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\&amp;\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\')</string>
                        <key>end</key>
                        <string>(?=\')</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\'\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\()</string>
                        <key>end</key>
                        <string>(?=\))</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\(\)\\]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\(</string>
                                <key>end</key>
                                <string>\)</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\))</string>
                        <key>end</key>
                        <string>(?=\))</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\)\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\*)</string>
                        <key>end</key>
                        <string>(?=\*)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\*\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\+)</string>
                        <key>end</key>
                        <string>(?=\+)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\+\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\,)</string>
                        <key>end</key>
                        <string>(?=\,)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\,\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\-)</string>
                        <key>end</key>
                        <string>(?=\-)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\-\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\.)</string>
                        <key>end</key>
                        <string>(?=\.)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\.\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\/)</string>
                        <key>end</key>
                        <string>(?=\/)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\/\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\:)</string>
                        <key>end</key>
                        <string>(?=\:)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\:\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\;)</string>
                        <key>end</key>
                        <string>(?=\;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\;\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\&lt;)</string>
                        <key>end</key>
                        <string>(?=\&gt;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\&lt;\&gt;\\]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\&lt;</string>
                                <key>end</key>
                                <string>\&gt;</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\=)</string>
                        <key>end</key>
                        <string>(?=\=)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\=\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\&gt;)</string>
                        <key>end</key>
                        <string>(?=\&gt;)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\&gt;\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\?)</string>
                        <key>end</key>
                        <string>(?=\?)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\?\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\@)</string>
                        <key>end</key>
                        <string>(?=\@)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\@\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\[)</string>
                        <key>end</key>
                        <string>(?=\])</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\[\]\\]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\[</string>
                                <key>end</key>
                                <string>\]</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\\)</string>
                        <key>end</key>
                        <string>(?=\\)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\\\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\])</string>
                        <key>end</key>
                        <string>(?=\])</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\]\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\^)</string>
                        <key>end</key>
                        <string>(?=\^)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\^\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\`)</string>
                        <key>end</key>
                        <string>(?=\`)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\`\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\{)</string>
                        <key>end</key>
                        <string>(?=\})</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\{\}\\]</string>
                            </dict>
                            <dict>
                                <key>begin</key>
                                <string>\{</string>
                                <key>end</key>
                                <string>\}</string>
                                <key>patterns</key>
                                <array>
                                    <dict>
                                        <key>include</key>
                                        <string>#single</string>
                                    </dict>
                                </array>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\|)</string>
                        <key>end</key>
                        <string>(?=\|)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\|\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\})</string>
                        <key>end</key>
                        <string>(?=\})</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\}\\]</string>
                            </dict>
                        </array>
                    </dict>
                    <dict>
                        <key>begin</key>
                        <string>(?&lt;=\~)</string>
                        <key>end</key>
                        <string>(?=\~)</string>
                        <key>patterns</key>
                        <array>
                            <dict>
                                <key>captures</key>
                                <dict>
                                    <key>1</key>
                                    <dict>
                                        <key>name</key>
                                        <string>constant.character.escape.perl</string>
                                    </dict>
                                </dict>
                                <key>match</key>
                                <string>(\\)[\~\\]</string>
                            </dict>
                        </array>
                    </dict>
                </array>
            </dict>
        </dict>
        <key>scopeName</key>
        <string>source.perl</string>
        <key>uuid</key>
        <string>2c338cc8-a464-4ee4-a56c-d524947fa6f9</string>
    </dict>
</plist>

Perl.tmLanguage

%YAML 1.2
---
# http://www.sublimetext.com/docs/3/syntax.html
name: Perl
comment: "TODO:    Include RegExp syntax"
file_extensions:
  - pl
  - pm
  - pod
  - t
  - PL
first_line_match: ^#!.*\bperl\b
scope: source.perl
contexts:
  main:
    - include: line_comment
    - match: ^=
      captures:
        0: punctuation.definition.comment.perl
      push:
        - meta_scope: comment.block.documentation.perl
        - match: ^=cut
          captures:
            0: punctuation.definition.comment.perl
          pop: true
    - include: variable
    - match: '\b(?=qr\s*[^\s\w])'
      comment: string.regexp.compile.perl
      push:
        - match: '(qr)\s*\{'
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.compile.nested_braces.perl
            - match: '\}'
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
            - include: variable
            - include: nested_braces_interpolated
        - match: '(qr)\s*\['
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.compile.nested_brackets.perl
            - match: '\]'
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
            - include: variable
            - include: nested_brackets_interpolated
        - match: (qr)\s*<
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.compile.nested_ltgt.perl
            - match: ">"
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
            - include: variable
            - include: nested_ltgt_interpolated
        - match: (qr)\s*\(
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.compile.nested_parens.perl
            - match: \)
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
            - include: variable
            - include: nested_parens_interpolated
        - match: (qr)\s*\'
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.compile.single-quote.perl
            - match: \'
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
        - match: '(qr)\s*([^\s\w\''\{\[\(\<])'
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.compile.simple-delimiter.perl
            - match: \2
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - match: '\$(?=[^\s\w\''\{\[\(\<])'
              comment: This is to prevent thinks like qr/foo$/ to treat $/ as a variable
              scope: keyword.control.anchor.perl
            - include: escaped_char
            - include: variable
            - include: nested_parens_interpolated
        - match: '((([egimosx]*)))(?=(\s+\S|\s*[;\,\#\{\}\)]|$))'
          captures:
            1: string.regexp.compile.perl
            2: punctuation.definition.string.perl
            3: keyword.control.regexp-option.perl
          pop: true
    - match: '\b(?=(?<!\&)(s)(\s+\S|\s*[;\,\#\{\}\(\)\[<]|$))'
      comment: string.regexp.replace.perl
      push:
        - match: '(s)\s*\{'
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.nested_braces.perl
            - match: '\}'
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
            - include: nested_braces
        - match: '(s)\s*\['
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.nested_brackets.perl
            - match: '\]'
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
            - include: nested_brackets
        - match: (s)\s*<
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.nested_ltgt.perl
            - match: ">"
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
            - include: nested_ltgt
        - match: (s)\s*\(
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.nested_parens.perl
            - match: \)
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
            - include: nested_parens
        - match: '\{'
          captures:
            0: punctuation.definition.string.perl
          push:
            - meta_scope: string.regexp.format.nested_braces.perl
            - match: '\}'
              captures:
                0: punctuation.definition.string.perl
              pop: true
            - include: escaped_char
            - include: variable
            - include: nested_braces_interpolated
        - match: '\['
          captures:
            0: punctuation.definition.string.perl
          push:
            - meta_scope: string.regexp.format.nested_brackets.perl
            - match: '\]'
              captures:
                0: punctuation.definition.string.perl
              pop: true
            - include: escaped_char
            - include: variable
            - include: nested_brackets_interpolated
        - match: "<"
          captures:
            0: punctuation.definition.string.perl
          push:
            - meta_scope: string.regexp.format.nested_ltgt.perl
            - match: ">"
              captures:
                0: punctuation.definition.string.perl
              pop: true
            - include: escaped_char
            - include: variable
            - include: nested_ltgt_interpolated
        - match: \(
          captures:
            0: punctuation.definition.string.perl
          push:
            - meta_scope: string.regexp.format.nested_parens.perl
            - match: \)
              captures:
                0: punctuation.definition.string.perl
              pop: true
            - include: escaped_char
            - include: variable
            - include: nested_parens_interpolated
        - match: "'"
          captures:
            0: punctuation.definition.string.perl
          push:
            - meta_scope: string.regexp.format.single_quote.perl
            - match: "'"
              captures:
                0: punctuation.definition.string.perl
              pop: true
            - match: '\\[''\\]'
              scope: constant.character.escape.perl
        - match: '([^\s\w\[({<;])'
          captures:
            0: punctuation.definition.string.perl
          push:
            - meta_scope: string.regexp.format.simple_delimiter.perl
            - match: \1
              captures:
                0: punctuation.definition.string.perl
              pop: true
            - include: escaped_char
            - include: variable
        - match: \s+
        - match: '((([egimosx]*)))(?=(\s+\S|\s*[;\,\#\{\}\)\]>]|$))'
          captures:
            1: string.regexp.replace.perl
            2: punctuation.definition.string.perl
            3: keyword.control.regexp-option.perl
          pop: true
    - match: '\b(?=s([^\s\w\[({<]).*\1([egimos]*)([\}\)\;\,]|\s+))'
      comment: string.regexp.replaceXXX
      push:
        - match: '((([egimos]*)))(?=([\}\)\;\,]|\s+|$))'
          captures:
            1: string.regexp.replace.perl
            2: punctuation.definition.string.perl
            3: keyword.control.regexp-option.perl
          pop: true
        - match: '(s\s*)([^\s\w\[({<])'
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.replaceXXX.simple_delimiter.perl
            - match: (?=\2)
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
        - match: "'"
          captures:
            0: punctuation.definition.string.perl
          push:
            - meta_scope: string.regexp.replaceXXX.format.single_quote.perl
            - match: "'"
              captures:
                0: punctuation.definition.string.perl
              pop: true
            - match: '\\[''\\]'
              scope: constant.character.escape.perl.perl
        - match: '([^\s\w\[({<])'
          captures:
            0: punctuation.definition.string.perl
          push:
            - meta_scope: string.regexp.replaceXXX.format.simple_delimiter.perl
            - match: \1
              captures:
                0: punctuation.definition.string.perl
              pop: true
            - include: escaped_char
            - include: variable
    - match: '\b(?=(?<!\\)s\s*([^\s\w\[({<]))'
      comment: string.regexp.replace.extended
      push:
        - match: '\2((([egimos]*x[egimos]*)))\b'
          captures:
            1: string.regexp.replace.perl
            2: punctuation.definition.string.perl
            3: keyword.control.regexp-option.perl
          pop: true
        - match: (s)\s*(.)
          captures:
            0: punctuation.definition.string.perl
            1: support.function.perl
          push:
            - meta_scope: string.regexp.replace.extended.simple_delimiter.perl
            - match: (?=\2)
              captures:
                0: punctuation.definition.string.perl
                1: support.function.perl
              pop: true
            - include: escaped_char
        - match: "'"
          captures:
            0: punctuation.definition.string.perl
          push:
            - meta_scope: string.regexp.replace.extended.simple_delimiter.perl
            - match: '''(?=[egimos]*x[egimos]*)\b'
              captures:
                0: punctuation.definition.string.perl
              pop: true
            - include: escaped_char
        - match: (.)
          captures:
            0: punctuation.definition.string.perl
          push:
            - meta_scope: string.regexp.replace.extended.simple_delimiter.perl
            - match: '\1(?=[egimos]*x[egimos]*)\b'
              captures:
                0: punctuation.definition.string.perl
              pop: true
            - include: escaped_char
            - include: variable
    - match: \b\w+\s*(?==>)
      scope: constant.other.key.perl
    - match: \b\w+\?\s*(?==>)
      scope: constant.other.key.optional.perl
    - match: '(?<={)\s*\w+\s*(?=})'
      scope: constant.other.bareword.perl
    - match: '(?<!\\)((~\s*)?\/)(\S.*?)(?<!\\)(\\{2})*(\/)'
      scope: string.regexp.find.perl
      captures:
        1: punctuation.definition.string.perl
        5: punctuation.definition.string.perl
    - match: (?<!\\)(\~\s*\/)
      captures:
        0: punctuation.definition.string.perl
      push:
        - meta_scope: string.regexp.find.extended.perl
        - match: '\/([cgimos]*x[cgimos]*)\b'
          captures:
            1: keyword.control.regexp-option.perl
          pop: true
        - include: escaped_char
        - include: variable
    - match: ^\s*(package)\s+(\S+)\s*((#).*)?$\n?
      scope: meta.class.perl
      captures:
        1: keyword.control.perl
        2: entity.name.type.class.perl
        3: comment.line.number-sign.perl
        4: punctuation.definition.comment.perl
    - match: '^\s*(sub)\s+([-a-zA-Z0-9_]+)\s*(\([\$\@\*;]*\))?'
      scope: meta.function.perl
      captures:
        1: storage.type.sub.perl
        2: entity.name.function.perl
        3: storage.type.method.perl
    - match: ^\s*(BEGIN|END|DESTROY)\b
      scope: meta.function.perl
      captures:
        1: entity.name.function.perl
        2: punctuation.definition.parameters.perl
        3: variable.parameter.function.perl
    - match: '^(?=(\t| {4}))'
      push:
        - meta_scope: meta.leading-tabs
        - match: '(?=[^\t\s])'
          pop: true
        - match: '(\t| {4})(\t| {4})?'
          captures:
            1: meta.odd-tab
            2: meta.even-tab
    - match: '\b(m)\s*(?<!\\)([^\[\{\(A-Za-z0-9\s])(.*?)(?<!\\)(\\{2})*(\2)'
      scope: string.regexp.find-m.perl
      captures:
        1: support.function.perl
        2: punctuation.definition.string.perl
        5: punctuation.definition.string.perl
    - match: \b(m)\s*(?<!\\)\(
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.regexp.find-m-paren.perl
        - match: \)
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_parens_interpolated
        - include: variable
    - match: '\b(m)\s*(?<!\\)\{'
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.regexp.find-m-brace.perl
        - match: '\}'
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_braces_interpolated
        - include: variable
    - match: '\b(m)\s*(?<!\\)\['
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.regexp.find-m-bracket.perl
        - match: '\]'
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_brackets_interpolated
        - include: variable
    - match: \b(m)\s*(?<!\\)\<
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.regexp.find-m-ltgt.perl
        - match: \>
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_ltgt_interpolated
        - include: variable
    - match: '\b(s|tr|y)\s*([^A-Za-z0-9\s])(.*?)(?<!\\)(\\{2})*(\2)(.*?)(?<!\\)(\\{2})*(\2)'
      scope: string.regexp.replace.perl
      captures:
        1: support.function.perl
        2: punctuation.definition.string.perl
        5: punctuation.definition.string.perl
        8: punctuation.definition.string.perl
    - match: \b(__FILE__|__LINE__|__PACKAGE__)\b
      scope: constant.language.perl
    - match: (?<!->)\b(continue|die|do|else|elsif|exit|for|foreach|goto|if|last|next|redo|return|select|unless|until|wait|while|switch|case|package|require|use|eval)\b
      scope: keyword.control.perl
    - match: \b(my|our|local)\b
      scope: storage.modifier.perl
    - match: '(?<!\w)\-[rwx0RWXOezsfdlpSbctugkTBMAC]\b'
      scope: keyword.operator.filetest.perl
    - match: \b(and|or|xor|as)\b
      scope: keyword.operator.logical.perl
    - match: (<=>| =>|->)
      scope: keyword.operator.comparison.perl
    - match: ((<<) *"HTML").*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.doublequote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: text.html.embedded.perl
        - match: (^HTML$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.doublequote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
        - include: scope:text.html.basic
    - match: ((<<) *"XML").*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.doublequote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: text.xml.embedded.perl
        - match: (^XML$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.doublequote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
        - include: scope:text.xml
    - match: ((<<) *"CSS").*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.doublequote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: text.css.embedded.perl
        - match: (^CSS$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.doublequote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
        - include: scope:source.css
    - match: ((<<) *"JAVASCRIPT").*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.doublequote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: text.js.embedded.perl
        - match: (^JAVASCRIPT$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.doublequote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
        - include: scope:source.js
    - match: ((<<) *"SQL").*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.doublequote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: source.sql.embedded.perl
        - match: (^SQL$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.doublequote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
        - include: scope:source.sql
    - match: '((<<) *"([^"]*)").*\n?'
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.doublequote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: string.unquoted.heredoc.doublequote.perl
        - match: (^\3$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.doublequote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
    - match: ((<<) *'HTML').*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.quote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: text.html.embedded.perl
        - match: (^HTML$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.quote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: scope:text.html.basic
    - match: ((<<) *'XML').*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.quote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: text.xml.embedded.perl
        - match: (^XML$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.quote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: scope:text.xml
    - match: ((<<) *'CSS').*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.quote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: text.css.embedded.perl
        - match: (^CSS$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.quote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: scope:source.css
    - match: ((<<) *'JAVASCRIPT').*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.quote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: text.js.embedded.perl
        - match: (^JAVASCRIPT$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.quote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: scope:source.js
    - match: ((<<) *'SQL').*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.quote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: source.sql.embedded.perl
        - match: (^SQL$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.quote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: scope:source.sql
    - match: '((<<) *''([^'']*)'').*\n?'
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.quote.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: string.unquoted.heredoc.quote.perl
        - match: (^\3$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.quote.perl
            2: punctuation.definition.heredoc.perl
          pop: true
    - match: '((<<) *`([^`]*)`).*\n?'
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.backtick.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: string.unquoted.heredoc.backtick.perl
        - match: (^\3$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.backtick.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
    - match: ((<<) *HTML\b).*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: text.html.embedded.perl
        - match: (^HTML$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
        - include: scope:text.html.basic
    - match: ((<<) *XML\b).*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: text.xml.embedded.perl
        - match: (^XML$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
        - include: scope:text.xml
    - match: ((<<) *SQL\b).*\n?
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: source.sql.embedded.perl
        - match: (^SQL$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
        - include: scope:source.sql
    - match: '((<<) *((?![=\d\$ ])[^;,''"`\s)]*)).*\n?'
      captures:
        0: punctuation.definition.string.perl
        1: string.unquoted.heredoc.perl
        2: punctuation.definition.heredoc.perl
      push:
        - meta_content_scope: string.unquoted.heredoc.perl
        - match: (^\3$)
          captures:
            0: punctuation.definition.string.perl
            1: string.unquoted.heredoc.perl
            2: punctuation.definition.heredoc.perl
          pop: true
        - include: escaped_char
        - include: variable
    - match: '\bqq\s*([^\(\{\[\<\w\s])'
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.other.qq.perl
        - match: \1
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: variable
    - match: '\bqx\s*([^''\(\{\[\<\w\s])'
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.interpolated.qx.perl
        - match: \1
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: variable
    - match: \bqx\s*'
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.interpolated.qx.single-quote.perl
        - match: "'"
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
    - match: '"'
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.double.perl
        - match: '"'
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: variable
    - match: '\bqw?\s*([^\(\{\[\<\w\s])'
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.other.q.perl
        - match: \1
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
    - match: "'"
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.single.perl
        - match: "'"
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - match: '\\[''\\]'
          scope: constant.character.escape.perl
    - match: "`"
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.interpolated.perl
        - match: "`"
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: variable
    - match: \bqq\s*\(
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.other.qq-paren.perl
        - match: \)
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_parens_interpolated
        - include: variable
    - match: '\bqq\s*\{'
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.other.qq-brace.perl
        - match: '\}'
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_braces_interpolated
        - include: variable
    - match: '\bqq\s*\['
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.other.qq-bracket.perl
        - match: '\]'
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_brackets_interpolated
        - include: variable
    - match: \bqq\s*\<
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.other.qq-ltgt.perl
        - match: \>
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_ltgt_interpolated
        - include: variable
    - match: \bqx\s*\(
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.interpolated.qx-paren.perl
        - match: \)
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_parens_interpolated
        - include: variable
    - match: '\bqx\s*\{'
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.interpolated.qx-brace.perl
        - match: '\}'
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_braces_interpolated
        - include: variable
    - match: '\bqx\s*\['
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.interpolated.qx-bracket.perl
        - match: '\]'
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_brackets_interpolated
        - include: variable
    - match: \bqx\s*\<
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.interpolated.qx-ltgt.perl
        - match: \>
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_ltgt_interpolated
        - include: variable
    - match: \bqw?\s*\(
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.other.q-paren.perl
        - match: \)
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_parens
    - match: '\bqw?\s*\{'
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.other.q-brace.perl
        - match: '\}'
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_braces
    - match: '\bqw?\s*\['
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.other.q-bracket.perl
        - match: '\]'
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_brackets
    - match: \bqw?\s*\<
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.quoted.other.q-ltgt.perl
        - match: \>
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
        - include: escaped_char
        - include: nested_ltgt
    - match: ^__\w+__
      captures:
        0: punctuation.definition.string.begin.perl
      push:
        - meta_scope: string.unquoted.program-block.perl
        - match: $
          captures:
            0: punctuation.definition.string.end.perl
          pop: true
    - match: '\b(format)\s+([A-Za-z]+)\s*='
      captures:
        1: support.function.perl
        2: entity.name.function.format.perl
      push:
        - meta_scope: meta.format.perl
        - match: ^\.\s*$
          pop: true
        - include: line_comment
        - include: variable
    - match: \b(ARGV|DATA|ENV|SIG|STDERR|STDIN|STDOUT|atan2|bind|binmode|bless|caller|chdir|chmod|chomp|chop|chown|chr|chroot|close|closedir|cmp|connect|cos|crypt|dbmclose|dbmopen|defined|delete|dump|each|endgrent|endhostent|endnetent|endprotoent|endpwent|endservent|eof|eq|eval|exec|exists|exp|fcntl|fileno|flock|fork|format|formline|ge|getc|getgrent|getgrgid|getgrnam|gethostbyaddr|gethostbyname|gethostent|getlogin|getnetbyaddr|getnetbyname|getnetent|getpeername|getpgrp|getppid|getpriority|getprotobyname|getprotobynumber|getprotoent|getpwent|getpwnam|getpwuid|getservbyname|getservbyport|getservent|getsockname|getsockopt|glob|gmtime|grep|gt|hex|import|index|int|ioctl|join|keys|kill|lc|lcfirst|le|length|link|listen|local|localtime|log|lstat|lt|m|map|mkdir|msgctl|msgget|msgrcv|msgsnd|ne|no|oct|open|opendir|ord|pack|pipe|pop|pos|print|printf|push|q|qq|quotemeta|qw|qx|rand|read|readdir|readlink|recv|ref|rename|reset|reverse|rewinddir|rindex|rmdir|s|scalar|seek|seekdir|semctl|semget|semop|send|setgrent|sethostent|setnetent|setpgrp|setpriority|setprotoent|setpwent|setservent|setsockopt|shift|shmctl|shmget|shmread|shmwrite|shutdown|sin|sleep|socket|socketpair|sort|splice|split|sprintf|sqrt|srand|stat|study|substr|symlink|syscall|sysopen|sysread|system|syswrite|tell|telldir|tie|tied|time|times|tr|truncate|uc|ucfirst|umask|undef|unlink|unpack|unshift|untie|utime|values|vec|waitpid|wantarray|warn|write|y|q|qw|qq|qx)\b
      scope: support.function.perl
  escaped_char:
    - match: \\.
      scope: constant.character.escape.perl
  line_comment:
    - match: ^((#).*$\n?)
      scope: meta.comment.full-line.perl
      captures:
        1: comment.line.number-sign.perl
        2: punctuation.definition.comment.perl
    - match: (#).*$\n?
      scope: comment.line.number-sign.perl
      captures:
        1: punctuation.definition.comment.perl
  nested_braces:
    - match: '\{'
      captures:
        1: punctuation.section.scope.perl
      push:
        - match: '\}'
          captures:
            1: punctuation.section.scope.perl
          pop: true
        - include: escaped_char
        - include: nested_braces
  nested_braces_interpolated:
    - match: '\{'
      captures:
        1: punctuation.section.scope.perl
      push:
        - match: '\}'
          captures:
            1: punctuation.section.scope.perl
          pop: true
        - include: escaped_char
        - include: variable
        - include: nested_braces_interpolated
  nested_brackets:
    - match: '\['
      captures:
        1: punctuation.section.scope.perl
      push:
        - match: '\]'
          captures:
            1: punctuation.section.scope.perl
          pop: true
        - include: escaped_char
        - include: nested_brackets
  nested_brackets_interpolated:
    - match: '\['
      captures:
        1: punctuation.section.scope.perl
      push:
        - match: '\]'
          captures:
            1: punctuation.section.scope.perl
          pop: true
        - include: escaped_char
        - include: variable
        - include: nested_brackets_interpolated
  nested_ltgt:
    - match: "<"
      captures:
        1: punctuation.section.scope.perl
      push:
        - match: ">"
          captures:
            1: punctuation.section.scope.perl
          pop: true
        - include: nested_ltgt
  nested_ltgt_interpolated:
    - match: "<"
      captures:
        1: punctuation.section.scope.perl
      push:
        - match: ">"
          captures:
            1: punctuation.section.scope.perl
          pop: true
        - include: variable
        - include: nested_ltgt_interpolated
  nested_parens:
    - match: \(
      captures:
        1: punctuation.section.scope.perl
      push:
        - match: \)
          captures:
            1: punctuation.section.scope.perl
          pop: true
        - include: escaped_char
        - include: nested_parens
  nested_parens_interpolated:
    - match: \(
      captures:
        1: punctuation.section.scope.perl
      push:
        - match: \)
          captures:
            1: punctuation.section.scope.perl
          pop: true
        - match: '\$(?=[^\s\w\''\{\[\(\<])'
          comment: This is to prevent thinks like qr/foo$/ to treat $/ as a variable
          scope: keyword.control.anchor.perl
        - include: escaped_char
        - include: variable
        - include: nested_parens_interpolated
  variable:
    - match: '(\$)&(?![A-Za-z0-9_])'
      scope: variable.other.regexp.match.perl
      captures:
        1: punctuation.definition.variable.perl
    - match: '(\$)`(?![A-Za-z0-9_])'
      scope: variable.other.regexp.pre-match.perl
      captures:
        1: punctuation.definition.variable.perl
    - match: '(\$)''(?![A-Za-z0-9_])'
      scope: variable.other.regexp.post-match.perl
      captures:
        1: punctuation.definition.variable.perl
    - match: '(\$)\+(?![A-Za-z0-9_])'
      scope: variable.other.regexp.last-paren-match.perl
      captures:
        1: punctuation.definition.variable.perl
    - match: '(\$)"(?![A-Za-z0-9_])'
      scope: variable.other.readwrite.list-separator.perl
      captures:
        1: punctuation.definition.variable.perl
    - match: '(\$)0(?![A-Za-z0-9_])'
      scope: variable.other.predefined.program-name.perl
      captures:
        1: punctuation.definition.variable.perl
    - match: '(\$)[_ab\*\.\/\|,\\;#%=\-~^:?!\$<>\(\)\[\]@](?![A-Za-z0-9_])'
      scope: variable.other.predefined.perl
      captures:
        1: punctuation.definition.variable.perl
    - match: '(\$)[0-9]+(?![A-Za-z0-9_])'
      scope: variable.other.subpattern.perl
      captures:
        1: punctuation.definition.variable.perl
    - match: '([\$\@\%](#)?)([a-zA-Zx7f-xff\$]|::)([a-zA-Z0-9_x7f-xff\$]|::)*\b'
      scope: variable.other.readwrite.global.perl
      captures:
        1: punctuation.definition.variable.perl
    - match: '(\$\{)(?:[a-zA-Zx7f-xff\$]|::)(?:[a-zA-Z0-9_x7f-xff\$]|::)*(\})'
      scope: variable.other.readwrite.global.perl
      captures:
        1: punctuation.definition.variable.perl
        2: punctuation.definition.variable.perl
    - match: '([\$\@\%](#)?)[0-9_]\b'
      scope: variable.other.readwrite.global.special.perl
      captures:
        1: punctuation.definition.variable.perl