$file="C:\\projects\\chartsweep90s\\all\.txt";
open FILE,"< $file";
@lines=<FILE>;
close FILE;


$out="out2\.htm";
open OUT,"> $out";

foreach $line (@lines)
{
@splitout=split(/\<tr\>/,$line);
$chunk=~ s/.*\<td\>([^\<\>]*)\<\/td\>.*\<td\>([^\<\>]*)\<\/td\>.*<td\>([^\<\>]*)\<\/td\>.*/$1   $2   $3/gi;
print OUT "$line\n";
}