#!/usr/bin/perl -w
use strict;

open(IN, $ARGV[0]) or die "Fichier non ouvert!\n";

#my @file = <IN>;

#print @file;
my $line;
my $i = 0;
my $sum = 0;
while ($line = <IN>) {
  if ($line =~ /requires a total of\s+(\d+)/) { $i++; $sum += $1; print "$i : $1\n"; }
}
print "Valeur moyenne de parcimonie = " . $sum/$i . "\n";