#!/usr/bin/perl
open IN, "orig/MSDS.LIS";
open LIST, ">list.html";
$fnum=0;
while(<IN>)
{
if(/^.AMERICAN CYANAMID CO\./)
	{
#print "===========\n";
	close OUT;
	$fnum++;
	open OUT, ">files/$fnum";
	}
print OUT;
}