#!/usr/bin/perl
system "lynx -source http://hillbrothers.com/msds > mcat";
open IN, "mcat";
while(<IN>){
s/\"//g;
/HREF=\/(msds[^>]*)>/;
$_ = $1;
print "\n\n===$_===\n";
open IN, "lynx -source http://hillbrothers.com/$_|";
while(<IN>){print;}
}