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

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