open(HANDLE,"script_integration_records");
while (<HANDLE>) {
	@temp1 = split(/:/);
	$domain = unpack ("A4", $temp1[40]);
	if (($domain eq "ATM") && ($temp1[36] eq "In Production")) {
		$sum += $temp1[38];
		$count++;
    }
}
close(HANDLE);

$average = $sum / $count;
print $average, "\n";

##</code><code>##

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";