Résultats "intéressants" :
perl -ne 'next unless /^To: (.+)$/;@a=split/[,;]/,$1;for(@a){s/ //g;if(/<(.+\@.+)>/){$a{$1}++}else{$a{$_}++}};END{for(sort keys %a){printf"%-50s %4s\n",$_,$a{$_} if m/aziraphale/}}' Inbox

Yep, le code est imbitable, et trop long pour un uniligne...