         'captures':
           '0':
             'name': 'punctuation.definition.string.perl'
-        'end': '\\1(?=[egimosradlu]*x[egimosradlu]*)\\b'
+        'end': '\\1(?=[egimosradlupc]*x[egimosradlupc]*)\\b'
         'name': 'string.regexp.replace.extended.simple_delimiter.perl'
         'patterns': [
           {

  {
    'begin': '\\b(?=(?<!\\\\)s\\s*([^\\s\\w\\[({<>]))'
    'comment': 'string.regexp.replace.extended'
    'end': '\\2((([egimosradlu]*x[egimosradlu]*)))\\b'
    'endCaptures':
      '1':
        'name': 'string.regexp.replace.perl'

    'applyEndPatternLast': 1
    'begin': '\\b(?=qr\\s*[^\\s\\w])'
    'comment': 'string.regexp.compile.perl'
    'end': '((([egimosxradlupc]*)))(?=(\\s+\\S|\\s*[;\\,\\#\\{\\}\\)]|$))'
    'endCaptures':
      '1':
        'name': 'string.regexp.compile.perl'
