#!/usr/bin/perl
# Usage: grep exdist | perl ./fenixTotal.pl
while (<>) {

  chomp();

  if (/fenix/ && /dist/) {
     print "$_\n";
     if ( /ride[ \t]+dist[ \t]*=[ \t]*["']([0-9]+)/ ) {
       $d = $1;
       $total += $d;
       ##print "$d\n";
     }
  }
}

print "** Fenix total: $total\n"