you could shorten that beginning up considerably by using something like var %bdwrd list,of,bad,words,delimited,by,commas if $istok(%bdwrd,$3,44) {