open (IN, "+<site.html");

my @file = <IN>;
seek IN,0,0;
foreach $file (@file){
$file =~ s/$find/$dir/g;
print IN $file;
}

close IN;