filter med regexp

Jeg har lavet en lille fil som jeg inkluder hvor jeg vil have et filter:

<%
dim filter_words
filter_words = "svin, bengt, høne, æsel, monior"
filter_words = split(filter_words, ",")

function dofilter(str)
dim temp_str
for i = 0 to Ubound(filter_words)
Set regEx = New RegExp               
regEx.Pattern = filter_words(i)
regEx.global = true
regEx.IgnoreCase = true
str = regEx.Replace(str , "*beep*" )
Set regEx = Nothing
next
dofilter = str
end function
%>

der vil i filter_words være omkring 50 forskellige ord. De 5 i ser er bare et eller andet tilfældigt.

Den funktion virker helt perfekt - men kan den optimeres? Den er hurtig at udføre - men kan den bliver endnu hurtigere?


Håber i kan hjælpe mig med om der er performance at hente nogle steder i det.