open(HANDLE, 'script_integration_records');
foreach (grep /^(?:[^:]*:){36}In Production:/, <HANDLE>) {
	my @line = split(/:/);
	push @numbers, $line[38] if (unpack("A4", $line[40]) eq "ATM");
}
close(HANDLE);

print eval(join('+',@numbers))/($#numbers+1), "\n";