I suggest (inside your original loop):
if ($istok($1-,$v1,32)) { kick with some general reason }
(the $v1 is the line just read)
or, to repeat the match in the kick message:
if ($findtok($1-,$v1,32)) { kick with reference to the matching token: $gettok($1-,$v1,32) }
(the first $v1 is the line just read, the second $v1 is the number of the token just found)
Or, if you have wildcard definitions in the file, you have to go for $wildtok instead of $findtok.