1Dim pat, patparts, rxp, inp
2pat = WScript.Arguments(0)
3patparts = Split(pat, "/")
4Set rxp = new RegExp
5rxp.Global = True
6rxp.Multiline = False
7rxp.Pattern = patparts(1)
8Do While Not WScript.StdIn.AtEndOfStream
9  inp = WScript.StdIn.ReadLine()
10  WScript.Echo rxp.Replace(inp, patparts(2))
11Loop
12
13