Dim pat, patparts, rxp, inp

pat = WScript.Arguments(0)

patparts = Split(pat, "/")

Set rxp = new RegExp

rxp.Global = True

rxp.Multiline = False

rxp.Pattern = patparts(1)

Do While Not WScript.StdIn.AtEndOfStream

  inp = WScript.StdIn.ReadLine()

  WScript.Echo rxp.Replace(inp, patparts(2))

Loop