#!/usr/bin/perl
open IN, "all";
open OUT, ">list.html";
print OUT "<pre>\n";
while(<IN>){$set=$set.$_;}

@set=split("<tr>",$set);
foreach $line (@set) 
	{
$prod=$pn=$id='';
#print OUT "===============================================\n$line\n";
	$line =~ /ID=\d*'><font face='arial' size='1'>(.*)<\/a><\/font>/;	$prod=$1;
	$line=~/ID=(\d*)/; $id=$1;
	$line=~/([\d ]*)<\/font><\/td><\/tr>$/; $pn=$1;
#	print "$id=$prod PN=$pn\n";
$prod or next;
$prod =~ s/\</&lt\;/g;
print OUT "<a href=http://www.equivashellmsds.com/getsinglemsds.asp?ID=$id>Equilon (Shell/Texaco)  -- $prod</a> $pn\n";
	}