perl -pi.bak -e 's#\Qhere.company.com/pagedir#there.company.com/#g' fi
+le1 file2 etc...
[download]

$^I = ".bak";
@ARGV = ('file.html');



  while(<>)
  {
      # chomp;  # don't want to loose the linebreaks
      my $string = "$_";
      my $find = "www.3sat.de/boerse/boerse_service.html";
      my $replace = "there.company.com/";
      $find = quotemeta $find;
      $string =~ s/$find/$replace/g;
      print $string;
  }
[download]

Here's what you do:

1. Put the list of files you want to treat into @ARGV
2. Set $^I. For every file treated, the original is saved with $^I added to the filename
3. read from <>
4. print to STDOUT

Perl does all the right things: it opens the files in @ARGV one by one, creates backups, and writes your output back into the original files.

P.S. Everything has already been discussed on perlmonks: see modifying and overwriting a file

--
Brigitte    'I never met a chocolate I didnt like'    Jellinek
http://www.horus.com/~bjelli/         http://perlwelt.horus.at

try something like this (there are a zillion ways to do it):

open (FH, "file.html");
my $find = quotemeta('here.company.com/pagedir'); 
## you can use quotemeta like this.  
my $replace = 'there.company.com'; 
## also it is better to define these outside of your loop
my $outstring;   
## this is a temp variable
while (<FH>) {  
    my $string = $_;
    $string =~ s/$find/$replace/g;
    $outstring .= $string;  
    ## this concatenates $string to $outstring
}
close (FH);
open (FH, ">file.html");  
## > means open new file for writing
print FH $outstring;  
## a plain 'print' prints to STDOUT.  you want to print to 
## your filehandle instead.
close (FH);
[download]

umm, yes. i hope this explains things. no one yell at me if this is too obtuse.

chiller

Added code, and made some changes... The new file will be in newfile.html.

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);
[download]

#!perl -w

use strict;
use File::Slurp;

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

my @lines = read_file "file.html";
foreach (@lines) {
    s/$find/$replace/g;
}
write_file "newfile.html", @lines;
[download]