Appreciate the help everyone, got me looking in the right direction. The code that worked for me is this.

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

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

close IN;
[download]

Thanks again everyone