         ]
       }
       {
-        'begin': '([^\\s\\w\\[({<])'
+        'begin': '([^\\sa-zA-Z0-9\\[({<])'
         'captures':
           '0':
             'name': 'punctuation.definition.string.perl'

        'name': 'keyword.control.regexp-option.perl'
    'patterns': [
      {
        'begin': '(s\\s*)([^\\s\\w\\[({<])'
        'captures':
          '0':
            'name': 'punctuation.definition.string.perl'

    ]
  }
  {
    'begin': '\\b(?=s([^\\sa-zA-Z0-9\\[({<]).*\\1([egimosxradlupc]*)([\\}\\)\\;\\,]|\\s+))'
    'comment': 'string.regexp.replaceXXX'
    'end': '((([egimosxradlupc]*)))(?=([\\}\\)\\;\\,]|\\s+|$))'
    'endCaptures':
