#!/usr/bin/perl -w

use HTML::TokeParser;
use strict;

my $html = '<a href="/f1/show?page=matchup&lid=206&week=8&mid1=2&mid2=8">\n';

my @results;
my $parser = HTML::TokeParser->new(\$html) || die $!;
while (my $token = $parser->get_token) {
    my $type = shift @{ $token };
    if ($type eq "S") {
        my ($tag, $attr, $attrseq, $text) = @{ $token };
        if (($tag eq "a") && ($attr->{'href'} =~ /^\/f1\/show\?/i)) {
            my $a_href = $attr->{'href'};
            $a_href =~ s/.+\?//g;
            my %vars = map { ((split(/=/, $_))[0]) => ((split(/=/, $_))[1]) } split(/&/, $a_href);
            push (@results, \%vars);
        };
    };
};

foreach my $vars (@results) {
    print $_, " ", ${$vars}{$_}, "\n" foreach keys %{$vars};
};

exit 0;