<!-- URL that generated this code: >
<!-- http://txt2re.com/index-vbscript.php3?s=08:Nov:2018%20%22This%20is%20an%20Example!%22&7&33 >

<%@ LANGUAGE="VBSCRIPT" %>
<%
  Dim txt
  txt ="08:Nov:2018 ""This is an Example!"""

  Dim re1
  re1 =".*?"	'Non-greedy match on filler
  Dim re2
  re2 ="(?:[a-z][a-z]+)"	'Uninteresting: word
  Dim re3
  re3 =".*?"	'Non-greedy match on filler
  Dim re4
  re4 ="((?:[a-z][a-z]+))"	'Word 1
  Dim re5
  re5 =".*?"	'Non-greedy match on filler
  Dim re6
  re6 ="[a-z]"	'Uninteresting: w
  Dim re7
  re7 =".*?"	'Non-greedy match on filler
  Dim re8
  re8 ="[a-z]"	'Uninteresting: w
  Dim re9
  re9 =".*?"	'Non-greedy match on filler
  Dim re10
  re10 ="[a-z]"	'Uninteresting: w
  Dim re11
  re11 =".*?"	'Non-greedy match on filler
  Dim re12
  re12 ="[a-z]"	'Uninteresting: w
  Dim re13
  re13 =".*?"	'Non-greedy match on filler
  Dim re14
  re14 ="[a-z]"	'Uninteresting: w
  Dim re15
  re15 =".*?"	'Non-greedy match on filler
  Dim re16
  re16 ="[a-z]"	'Uninteresting: w
  Dim re17
  re17 =".*?"	'Non-greedy match on filler
  Dim re18
  re18 ="[a-z]"	'Uninteresting: w
  Dim re19
  re19 =".*?"	'Non-greedy match on filler
  Dim re20
  re20 ="([a-z])"	'Any Single Word Character (Not Whitespace) 1

  Dim r
  Set r = New RegExp
  r.Pattern = re1+re2+re3+re4+re5+re6+re7+re8+re9+re10+re11+re12+re13+re14+re15+re16+re17+re18+re19+re20
  r.IgnoreCase = True
  Dim m
  Set m = r.Execute(txt)
  If m.Item(0).SubMatches.Count > 0 Then
      Dim word1
      word1=m.Item(0).SubMatches.Item(0)
      Dim w1
      w1=m.Item(0).SubMatches.Item(1)
      Response.Write("("+Replace(word1,"<","&lt;")+")"+"("+Replace(w1,"<","&lt;")+")"+"")
  End If
%>

<!------->
<!-- To run this code:-->
<!------->
<!-- .Paste into text file using notepad into IIS Web Server wwwroot directory.-->
<!------->
<!-- .Or if using Microsoft's development environment use 'paste as html' if available.-->
<!------->