$i = 0, $total = 0; while ($line = ) { chomp $line; if ($line =~ /"([\d\/]+)\s([\d:.]+)"\s+"([\d.]+)"/) { total += $3; $i++; } } $avarage = $total/$i;