my @filesliste = glob('./ligen/*.txt'); 
foreach my $filename(@filesliste) {
    open(FH,"<$filename") {
        while (<FH>) {
                $line =~ s/(\w+)liga(.+)/<table id="tabelle"><p class="P_liga">$1liga$2<\/p>/g;    
                $line =~ s/^(\w.+)/<tr><td class="mannschaft">$1<\/td><td class="tore1">:<\/td><\/tr>/g;
                }
        }
    close(FH);
}