on $*:text:/^!reg(exp?|chk)\b/Si:*:tokenize 32 $strip($1-) | if (!$3) msg $loc 4Insufficient parameters. Syntax: !regex 5<4pattern5> <4matchtext5> | elseif (!$regex(matchchk,$2-,/(\/(?>\\.|[^/]*|(?R)*)\/*[gisSmoxXAU]*)/)) msg $loc 4Regex pattern is invalid. | elseif ($regex($remove($1-,$1,$regml(matchchk,1)),$regml(matchchk,1))) { if ( $regml(0) > 0 ) { var %i = 1,%r | while (%i <= $regml(0)) { %r = %r $+ $iif($numtok(%r,44) != 0,$chr(44)) $qt( $+ $regml(%i) $+ ) | inc %i } } | msg $loc 7[4 $+ $regml(matchchk,1) matches $remove($1-,$1,$regml(matchchk,1)) $+  $+ $iif($regml(0) != 0, $chr(32) and backreferences to %r $+ ) $+ 7] } | else msg $loc 7[4 $+ $regml(matchchk,1) does not match $remove($1-,$1,$regml(matchchk,1)) $+ 7]