#!/usr/bin/perl -w
use Tie::File;

# die HTML Seiten 
my @files = ("1.html", "2.html", ...);

$vor = "string zu suchen";
$nach = "string zu ersetzen";

for my $file (@files) {
  tie my @lines, 'Tie::File', $file or die $!;

  for my $line ( @lines )  {
   	$line =~ s/$vor/$nach/g;
   }
   untie @lines;
   print "datei".$file."fertig \n";
}