my ($benutzer, $zeilen, $datei)=();
open $datei, "<$dateipfad";
while(<$datei>)
  {
  m/ #info users (\d+)/ || next;
  $benutzer+=$1;
  $zeilen++;
  }
close $datei;

print $benutzer/$zeilen;