using command `regex -- {data/(?!data).*?/} $string` causes an error: `tclreadline::Loop: error. error in history expansion: !data).: event not found`