#!/usr/local/bin/perl
use strict;
# HTML-Dateien öffnen, ändern und speichern
my $datei_dir ="/data/daten/ib_test";
my $dateineu_dir ="/data/daten/ib_test/Dateien_neu";
opendir(DIR, $datei_dir) or die "Fehler bei opendir: $!\n";
while(my $datei=readdir(DIR))
{
print "$datei\n";
if($datei=~m/.+\.html*$/)
{
open(DATEI, "<$datei_dir/$datei") || die "Fehler bei open(< $datei): $!\n";
open(DATOUT,">$dateineu_dir/$datei") || die "Fehler bei open(> $datei): $!\n";
while (my $zeile =)
{
$zeile =~ s//
/g;
$zeile=~s/<\/head>/<\/head>
$1