#!/usr/bin/perl

$filelist = $ARGV[0];

open FILELIST, $filelist or die "can't open file list\n";



while($file =<FILELIST>){
	chomp($file);
	$fulltext = "";
	open FILE, $file or die "Can't open file $file\n";
	while ($line = <FILE>){
		
		$fulltext = $fulltext.$line;
	}
	
	$fulltext =~ s/<div class=\"breadcrumb\" align=\"right\">.*<a name=\"content\"><\/a>//s;
	
	$tempfile = $file;
	$tempfile =~ s/\.shtml/\.shtml.1/;
	open TEMPFILE , ">".$tempfile or die "Can't open $tempfile\n";

	print TEMPFILE $fulltext;
	close FILE;
	close TEMPFILE;

}

	
		

