| 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 | |