use strict; open (DATEI,'test.txt'); chomp (my @zeilen = ); close (DATEI); my %eintr; my $kategorie; foreach my $zeile (@zeilen) { next unless $zeile; if ( $zeile eq uc($zeile) ) { $kategorie = $zeile; next } push @{$eintr{$kategorie}}, $zeile; } my @egal = map {''.$_.'

'} keys %eintr; my $html = ''.join('',@egal).''; print $html;