#!/usr/bin/perl
open IN, "list.orig";
open OUT, ">list.html";
while(<IN>)
	{
	unless(/<a href/){next;}
s/\"//g;
s/target=bottom//;
s/\.DAT /.html/;
s/=MSDS/=\/msds\/mf\/bmoore\/files/;
s/html>/html>Benjamin Moore - /;
	print OUT;
	}
exit;
opendir DIR, "files";
while($file=readdir(DIR)){print "$file==";
open IN, "files/$file";
while(<IN>)
	{if(/<TITLE>(.*)<\/TITLE>/)
		{$name=$1;
		print "$name\n";
		}
	/NAME:/ && print;
	}
}