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

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

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