sub fixspace{
		$rem ="|";
		$rep = " ";
		open FILE, "<$file";
		
		open OUTP, ">c:\\joshperl\\deptemp.txt";

		while (<FILE>)
			{
			s/$rem/$rep/go;
			print OUTP;
			}
		close FILE;
		close OUTP;
}