#!/usr/bin/perl 
use utf8;
use warnings;  

############################### Funktionen 
sub Style() { 
	foreach $element (@HTML) {
	if ($element !~ /^<style/) {
		push (@AUSGABE, $element);
    }
    return @AUSGABE;
  }
}

######################
sub Style(); 


$htmldir = "/home/user";

    opendir HTMLDIR, $htmldir or die "Kann $htmldir nicht öffnen: $!";

foreach $htmldatei (readdir HTMLDIR) {
    
    if ( $htmldatei =~ /.html$/ ) {

	push (@HTML,"<dateiname>" . $htmldatei . "</dateiname>");
	
	$lines = " ";

	open (WEBSEITE, "<$htmldatei") or die "can not open $htmldatei:$!";

	while (<WEBSEITE>) {

	    # Leere Zeilen ignorieren
	    next if ($_ =~  /^\s*$/);

	    # Inhalt der aktuellen Zeile in Variable $line schreiben
	    $line = $_;

	    # Zeilenende löschen
	    $line =~  s/\n//;

	    # auf ein Leerzeichen kürzen
	    $line =~  s/\s+/ /g;

	    # Tabulator einfügen
	    $line =~  s/</\t</g;

	    # Gesamte Website in einer Zeile 
	    $lines = $lines . " " . $line;
	    
	    # auf ein Leerzeichen reduzieren 
	    $lines =~  s/ +/ /g;
	}
    }
    close WEBSEITE;

    # Variable $lines in Array zwischen übernehmen 
    # Elemente beginnen nun immer mit "<"
    @zwischen=split(/\t/,$lines);

    push(@HTML,@zwischen);
	    
    @zwischen = ();
}

close HTMLDIR; 

@AUSGABE = Style();

 
###################################################################
# Ausgabe bearbeitete Daten
foreach $i (@AUSGABE) {
    print $i . "\n";
}