Q:

Insert a pipe delimiter after every 39 characters

I originally asked the question where I was requiring to remove the blank spaces and replace the one with 13 spaces with a pipe delimiter. I now have a different file with 1 line of very long text in which I need to insert a pipe "|" delimiter after every 39 characters. Sample of the text that I am trying to work with:
000/042 BS CALIFORNIA             90001000/042 BS CALIFORNIA             90002000/042 BS CALIFORNIA             90003000/042 BS CALIFORNIA             90004000/042 BS CALIFORNIA 

I am intending to write a batch file that can do this since I wont be able to load it to any sql server without preprocessing it with SSIS and the delimiters in place. Any help is appreciated. 
EDIT:
The code that replaced the blank spaces and made the file easy to work with is as below:
Set Inp = wscript.Stdin
Set Outp = wscript.Stdout
Set regEx = New RegExp
regEx.Pattern = "\s{2,}"
regEx.IgnoreCase = True
regEx.Global = True
Outp.Write regEx.Replace(Inp.ReadAll, "|")

I am not sure how to modify this so that a pipe delimiter is placed after every 39 characters. 

A:

Thanks to all for taking a look at this question. I am posting the solution that I found was sufficient for me. The original intention was to insert a pipeline delimiter after every 39 characters. But I was thinking in a different direction. I can accomplish the same task with SSIS Flat File source where I select the Format option as "Fixed width" and load the data as needed. 

A:

Set Inp = wscript.Stdin
Set Outp = wscript.Stdout
Set regEx = New RegExp
regEx.Pattern = "(.{39,39})"
regEx.IgnoreCase = True
regEx.Global = True
Outp.Write regEx.Replace(Inp.ReadAll, "$1|")

http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
Is the VBScript help file. Look up the pattern property. . any character except newline, minimum 39 and maximum 39, $1 replace with what we found plus a pipe.

