alias charcheck { var %c $chr($2) | return $regsubex($1,/(?<= |^)([^ $+ %c $+ ][^ ]*)(?= |$)/g,%c $+ \1) }