#!/usr/bin/perl
open IN, "list";
open OUT, ">list.html";
while(<IN>)
	{
	chomp;
	if(/ipcs(....)/)
		{
$line = $_;
$fnum = $1;
#print"$_\n";
$line =~ s/<FONT SIZE=4>//;
$line =~ s/>(\d{4}\*?) ([^<]*)/>$2/;
#$ipcsnum=$1; 
open(CARDIN,"files/$fnum.html");
open(CARDOUT,">file/$fnum.html");
while(<CARDIN>)
			{
			s/<IMG/<!IMG/g;
			print CARDOUT;
			}
$line =~ s/\.\/ipcs/\/msds\/mf\/cards\/file\//;
$line =~ s/html\">/html\">Safety Card --/; 
$line =~ s/\"//g;
print OUT "<br>$line\n";
#if($reps++ > 200){exit;}
		}
	}