open CONFIG,"< E:\\chartsweep\\done\\grabparts\.cfg";
open OUT,"> C:\\projects\\chartsweep90s\\newconfig\.cfg";
@a=<CONFIG>;

foreach $a (@a)
{
	if ($a =~ /End_/)
	{
		$a .="Imagesearch=\n";
		}
		print OUT $a;
}
close OUT;
close CONFIG;