http://paperlined.org/dev/src/pl/ahk/statistics.pl

#!/usr/bin/perl

# <short description of program>

    use strict;
    use warnings;

    use Data::Dumper;
    use Date::Parse;

@ARGV = sort glob "*";

my %months;

while (<>) {
    if (m#\t(\w+) (\d+), (200[0-9])\thttp://www.autohotkey.com/forum/post-#i) {
        my $d = str2time("$1 1, $3");
        $months{$d}++;
    }
}

#print Dumper \%months; exit;

my @mos = qw[Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec];
foreach my $d (sort keys %months) {
    my (undef, undef, undef, undef, $month, $year) = localtime($d);
    printf "%s 1, %d\t%d\n", $mos[$month], $year+1900, $months{$d};
}