<font color="#660000"><font size="2"><font face="tahoma,sans-serif">Esteemed colleges, I have recently re-opened my mental archives and am attempting to create some scripts at work using perl to create some utilities we need for our Lawson system.  I am having trouble with doing a pattern match/substitution by line in a while loop - <br>

<br>........<br><br>open (OUTPUT, ">>$OUTPUTFILE");<br><br>while (<INPUT>)<br>{<br>        $_ =~ s/ \ +/|/;<br>        print OUTPUT "$PRODUCTLINE $_";<br>}<br>..........<br><br>my code works fine without the substitution listed above the print statement, what I'm attempting to do it for each line is to remove all spaces and replace with a pipe (|) - when I do leave this bit a code it, it appears to be ignored.  I done a lot of googling and dusting off copies of perl books, but so far no luck in the context I'm working with.  Any help would be greatly appreciated. <br>

<br>Thank You. <br><br>Ramon<br></font></font></font>