Splitting the initial '(?' is deprecated in regex

This is a minor fix to regex syntax to suppress warnings on current perl versions