#!/usr/bin/perl

my %mon = ( 
	'Jan' => 1,
	'Feb' => 2,
	'Mar' => 3,
	'Apr' => 4,
	'May' => 5,
	'Jun' => 6,
	'Jul' => 7,
	'Aug' => 8,
	'Sep' => 9,
	'Oct' => 10,
	'Nov' => 11,
	'Dec' => 12
);

my %stat;

while(<>) {
	chomp();
	if(/^From /) {
		while(<>) {
			chomp();
			my $recv='';
			if(/^Received: /) {
				$recv.=$_;
				while(<>) {
					chomp();
					last if(!/^\s/);
					$recv.=$_;
				}
				# Thu,  1 Jan 2004 10:08:24 +0100 (CET)
				if (my ($by, $day, $month, $year) = ($recv =~ /by (\S+).*; \w\w\w,\s+(\d+)\s(\w\w\w)\s(\d+)\s\d\d/)) {
					my $d=sprintf("%04d-%02d-%02d", $year, $mon{$month}, $day);
					$stat{$d}++;
				}
				last;
			}
		}
	}
}


foreach my $d ( sort keys %stat ) {
	printf("%s %d\n", $d, $stat{$d});	
}