I managed to make a reduced version of that part of my script, sadly I couldn't manage to reduce it under 50 lines.
Would that be fine for you?

UPDATE: Here is the code and some nicknames to test it:

#!/usr/bin/perl

use strict;
use warnings;

use WWW::Mechanize::Firefox;
use WWW::Mechanize;
use Date::Manip;
use DateTime;

open TXT, "<", "nickname.log";
while(! eof (TXT)){    
    my $nick = <TXT>;
    chomp $nick;
            
    open MATCH, "+<", "match.log";
    
    my $j = 0;
    for $j(0..3){
        
        my ($date) = DateTime->now;
        my ($k) = 0;
        while($k < $j){
            $date = $date->subtract( days => 7);
            $k++;
        }
        $date = $date->ymd;
                        
        my $url = "http://www.quakelive.com/#profile/matches/$nick/$da
+te";
        
        my ($firemech) = WWW::Mechanize::Firefox->new();
        $firemech->get($url);
        die "Cannot connect to $url\n" if !$firemech->success();
                
        my ($retries) = 10;
            while ($retries-- and ! $firemech->is_visible( xpath => '/
+/*[@class="areaMapC"]' )) {
                  sleep 1;
            }
            die "Timeout" unless $retries;

        my ($content) = $firemech->content();

        while(($content =~ /class="areaMapC" id="([^<]+)_([^<]+)_([^<]
++)">/gsi)){
            my ($game) = $1;  my ($longid) = $2;  my ($shortid) = $3;
            my ($matchid) = "$longid/$game/$shortid\n";
            print MATCH $matchid;    
        }
        undef $firemech; undef $content;
        $j++;        
    }
    close MATCH;
}
close TXT;

[download]

Nicknames:

peavey
trajan
komap
bluedawg
donpidon
x9rcist
dom_prova_____
newton
burn
tyryl
st1mz
tomo32
zky
hisarrzulu
_luk__47_
sendhu
joopsta
sand5pid3r
trickle
mikenoid
beg1nner
fladder72
4bsan1ty
daitarn
z0id0uf
amoreno
stuntt
askkk
flyttadig
arcsign
glavic
acid_predator
new_0
jala1
crucci
niko95
deputydawg
optixx
ennesit
martianbuddy
b4r
r1dah
gathion
function9
chup4
poocamshot
shnipzr
heppo
b4byb34r
the_hulk

[download]

In reply to Re^6: MozRepl cleanup problem by giantpanda
in thread MozRepl cleanup problem by giantpanda

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.