$ perl -aF'\|\|' -nle '$F {$F [3]} ++; 
  END {printf "%s has %d id\x27s\n" => $_, $F {$_} for keys %F}' data