open(DB, $database) or die "Error opening file: $!\n";

my $total = 0;
while(<DB>) {
  my($val) = (split /\|/, $entry)[3] =~ /(\d+)/;
  $total += $val;
}

close DB;