#!/usr/bin/perl -w

print "<?xml version=\"1.0\"?>\n<bookmarks>\n";
while (<>)	{
	print "<category name=\"$1\">\n" if (/<DT><H3.*?>(.*?)<\/H3>/);
	print "<site name=\"$2\" url=\"$1\"/>\n" if (/<DT><A HREF=\"(.*)\" ADD_DATE=.*?>(.*)<\/A>/);
	print "</category>\n" if (/<\/DL><p>/);
}
print "</bookmarks>";