my $summin = 0;
my $sumsec = 0;
my $i=0;

while (<>) {
  if ($_ =~ /(\d+)m(\d+\.\d+)s/) {
  # print "Min: $1, Sec: $2\n";
  $i++;
  $summin += $1;
  $sumsec += $2;
}
}

my $res = (( $summin * 60) + $sumsec) / $i;

print "Eval: $res\n";