I tried the following on text event:
on $*:TEXT:m/(snake| $+ $replace($me,[,\[,],\]))/:#:echo -s TEST COMPLETE

It didn't work somehow, but somehow
//echo -ag $regex($me,snake| $+ $replace($me,[,\],[,\[))
would return 1
Is there a workaround? I also tried it with
on *:TEXT:$($regex($me,snake| $+ $replace($me,[,\],[,\[)))
and that didn't work either