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);
	}
}