http://paperlined.org/src/pl/porn/google/saved/pos.pl

#!/usr/bin/perl

# <short description of program>

    use strict;
    use warnings;

    use Data::Dumper;

my @pos = (
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
    {},
);

#open FIN, "<2008-07-05__promo.hogtied.com.txt" or die;
open FIN, "<2008-07-05__promo.meninpain.com.txt" or die;
while (<FIN>) {
    s/[\n\r]+$//si;
    my @F = split '/', $_;
    next unless ($F[3] eq 'm');
    for (my $ctr=0; $ctr<@F; $ctr++) {
        $pos[$ctr]{ $F[$ctr] }++;
    }
}


print Dumper \@pos;