body remote gettok

if ($gettok($regex($1-,/[[:cntrl:]]/g),1,46) > 49) $s(codes)
if ($gettok($regex($1-,/[[:upper:]]/g),1,46) > 49) $s(caps)
if ($gettok($regex($1-,/[[:digit:]]/g),1,46) > 49) $s(numbers)
if ($gettok($regex($1-,/[[:punct:]]/g),1,46) > 49) $s(symbols)
if ($gettok($regex($1-,/[ $chr(160) ]/g),1,46) > 49) $s(blurs)
if ($gettok($regex($1-,/[ $chr(174) ]/g),1,46) > 49) $s(asciis)
if ($gettok($regex($1-,/[[:lower:]]/g),1,46) > 199) $s(lenghts)
if ($gettok($regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si),1,46)) $s(swear)
if ($gettok($regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3}) \S*)|#[^\40]\S*)/Si),1,46)) $s(advertise)