sub eachfile {
      my $path = $File::Find::name;

      return if -d $path;

      $path =~ s|^.*/(.+)_logs/|| or return; # or log
      my $item = $1;

      if ( $path =~ m|(.+)\.(\d+)$| ) {
          my($company,$quantity) = ($1,$2);
          inventory($company, $item, $quantity);
          return;
      }

      # and so on for each remaining case

      # eventually logging any that you can't handle
  }