use strict;
use warnings;


#Suche alle *.html-dateien:
my @all_files = glob ("*.html");


foreach my $file (@all_files) {

        #Endung entfernen:
        $file =~ s/\.html//;    #Ich weiß es gibt bessere methoden,
                                #mir fällt aber gerade keine ein.

        #Lese die Datei:
        open (FILE, "<", "$file.html") || print "\nERROR: Cannot open the file \"$file\":\n$!\a";
        foreach my $data (<FILE>) {     

                #Wenn die Datei eine bestimmte Zeichenfolge enthält,
                #dann umbenennen:

                if ($data =~ /www id: (\d\d\d\d\d)/) {
                        print "FILE: $1 in \"$file\" gefunden\n";
                        close (FILE);

                        rename ("$file.html", "$file $1.html") || print "\nERROR: Cannot rename the file \"$file\":\n$!\a";
                        last;
                }
        }continue {
                close (FILE);
        }
}