#usr/bin/perl

use strict;
use warnings;
use List::Util qw(sum);

open IN, '<',"part4.csv" or die "can't open input file 'part4.csv': $!\n";

my $x;
my @windsordigits;

foreach $x (<IN>){
  @windsordigits = ($x =~ /WINDSOR\sRIVERSIDE.*(\d\d?)/);
  print "@windsordigits\n";


}
my $average = sum(@windsordigits) / @windsordigits;
print "$average";

close IN;