use strict;
open (FILE ,"c:/index.htm");

for my $line (<FILE>) {
	if ($line =~ /foo/) {
		$line =~ s/foo/bar/gms;		
		print FILE "$line"; #obviously doesn't work
		print $line;
	}
	
}
close FILE;