open (RD, "input.txt") or die;
@Read = <RD>; close (RD);

open (WR2, ">>output.txt") or die;
$count=0;
$C="1999-1041";
for ($read=0; $read <= $#Read; $read++)
{
	if($Read[$read] !~ /$C/)
	{
	$count++;
	print WR2"$count=$C\n";
	}
	
}