alias htmlchans { var %a = $1 noop $regsub(%a,/(?:^[^<]*?>|<[^>]*?>|<[^>]*$)/g,.,%a) noop $regsub(%a,/(?:^\.+|(?<=\.)\.+|\.+$)/g,$null,%a) return $iif($2,$gettok(%a,$2,46),$numtok(%a,46) - %a) }