Select Code to Download

use warnings;
use strict;
...
print "Day hits:\n",
    join ("\n", map {"$_ ($date_count{$_})"} sort grep {m!^\d{4}/\d\d/
+\d\d$!} keys %date_count),
    "\n";

Year hits:
2007 (29)
...
2007/03/25 (5)
2007/03/26 (4)
2007/03/27 (1)