#!/usr/bin/env perl

use strict;
use warnings;
use List::MoreUtils qw(natatime);
use List::Util qw(reduce);
use IO::All;
use autodie;

my $file     = shift;
my $amount   = 2;
my $io       = io $file;
my $iterator = natatime $amount, @$io;

while ( my @items = $iterator->() ) {
    my @values = map { /^.+\|(.+)$/ } @items;
    my $sum = reduce { $a + $b } @values;
    my $average = $sum / $amount;
    print qq($average\n);
}

__END__