use strict;
my $input = "<tr><td><b><a href=i386/zh-xcin-2.3.04.tgz-long.html>zh-xcin-2.3.04.tgz</a></b></td><td>&nbsp&nbsp&nbsp<i>chinese input utility for X</i></td><td>[ <a href=ftp://ftp.openbsd.org/pub/OpenBSD/2.8/packages/i386/zh-xcin-2.3.04.tgz>FTP Site 1</a> ]</td><td>[ <a href=ftp://ftp1.usa.openbsd.org/pub/OpenBSD/2.8/packages/i386/zh-xcin-2.3.04.tgz>FTP Site 2</a> ]</td></tr>";

my %data;
my @fields = split '<tr><td><b>', $input;
shift @fields;

foreach my $field (@fields) {
	($data{fileurl}, $data{filename}, $data{description}, $data{ftp1}, $data{ftp2}) = 
		$field =~ 
		m#^<a href=(.*?)>(.*?)</a></b></td><td>&nbsp&nbsp&nbsp<i>(.*?)</i></td><td>\[ <a href=(.*?)>.*?</a> ]</td><td>\[ <a href=(.*?)>.*#;
	print "$2 == $3\n";
}