$calc($len($1-) - $count($1-,a,b,c,d,e,f,g,h,i,j,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,$chr(32)))
$regex($1-,/[^ a-z]/gi)
/[[:punct:]]/g
var %t = $chr(15) test!123 $chr(9) echo -sg ^a-z: $regex(%t,/[^ a-z]/gi) --- \S\W: $regex(%t,/[^\s\w]/g) --- punct: $regex(%t,/[[:punct:]]/g)