open(FH, "<file.html");
open(OUT, ">newfile.html");

my $line = '';

my $find = quotemeta("here.company.com/pagedir");
my $replace = "there.company.com/";


while($line = <FH>)
{
    $string =~ s/$find/$replace/g;
    print OUT $string;
}
close(FH);
close(OUT);