#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my $page = get ("http://setiathome.ssl.berkeley.edu/stats/country_7.html");

my @lines = split /<tr>/, $page;

for (@lines) {
	# Take out the links (for the lines that have 'em)
    s/<a.*?>(.*)<\/a>/$1/g;
	# Take out the silly &nbsp;
    s/&nbsp;//g;
	# Match the 2 parts you want
    m/<td>(.*?)<\/td>.*?(\d+)/isg;
	# And print it
    print "$1 : $2\n";
}