#!/usr/bin/perl
use strict;
use warnings;

my ($s,$c)=(0,0);
while(<STDIN>)
{
  chomp;
  $_ or last;
  /^\d+(\.\d+)?/ or die("NO Number");
  $s+=$_; $c++;
}
$s/=$c;
print "Durchschitt: $s\n";