#ARGV = (file, word to be changed, word to change it to)
($file,$search,$replace) = @ARGV;
open (READ, "$file") or die "whoops: $!";
@page = <READ>;
close (READ);
open (WRITE, "> $file") or die "whoops: $!";
while ($line = shift(@page))
{
	$line =~ s/$search/$replace/;
	print WRITE $line;
}
