while (my $line = <DATA>) {

  next unless ($line =~ /^<a href=/);
  my @vars = split('&', $line);
  my ($mid2) = (split('=', pop(@vars)))[1] =~ /^(\d+)/;
  my $mid1 = (split('=', pop(@vars)))[1];
  my $week = (split('=', pop(@vars)))[1];

 # do domething with the vars...

}

__DATA__
blah blah
<a href="/f1/show?page=matchup&lid=206&week=8&mid1=2&mid2=8">
more lines