#!/usr/local/bin/perl


# PERL program that searches and replaces html backgrounds
# Patrick Darden Oct 17 1995 for Dr. Hilton
# The Blake Project
# Revised for further page editing, 20 May 1997, N Hilton


while($filename=shift(@ARGV))
{
	open(FILE, "$filename") || die "No such file.\n";
	@file=<FILE>;
	close FILE;
	$newfilename="$filename" . ".old";
	system("mv $filename $newfilename");
#	print "@file \n\n";

	open(NewFile, ">$filename");

	foreach $line (@file)
	{
		$line=~s/<center>/<center>
&nbsp<p>&nbsp<p>/gi;

		print NewFile "$line";
	}



	close NewFile
}