#!/usr/bin/perl

while(<>){
    /result/ && do {
	/dumper/ && do {
	    /kps\s+(\d+.\d+)/ && do {
		print "DUMPER: $1\n";
		$dumper += $1;
		$dumped++;
		next;
	    };
	};
	/taper/ && do {
	    /kps\s+(\d+.\d+)/ && do {
		print "TAPER: $1\n";
		$taper += $1;
		$taped++;
		next;
	    };
	};
    };
}

$taper /= $taped;
$dumper /= $dumped;

print <<EOavg;
Averages 
Dumper	$dumper
Taper   $taper
EOavg