<pre>
<%
function getcombs(str)
  Set regEx = New RegExp
  regEx.Global = True
  regEx.IgnoreCase = True
  regEx.Pattern = "[a-z]+"
  Set words = regEx.Execute(str)
  for each word in words
    for x = 4 to 8
      for y = 1 to len(word)-x+1
        response.write("match: " & mid(word,y,x) & "<br />")
      next
    next
  next
end function
getcombs("fire0fly#>stone new")
%>