foreach $line (@file)
	{
		$line=~s/<body/<test/gi;

		print NewFile "$line";
	}