Select Code to Download

open(HANDLE,"script_integration_records");
while (<HANDLE>) {
    @temp1 = split(/:/);
...

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

open(HANDLE, 'script_integration_records');
foreach (grep /^(?:[^:]*:){36}In Production:/, <HANDLE>) {
    my @line = split(/:/);
...
close(HANDLE);

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