#!/usr/bin/perl

use strict;
use warnings;

#my $quelle = "photo123.html";
my $ziel = "photo.txt";

open(my $FHziel, ">", $ziel)
         or
         die "\n Konnte die Datei $ziel nicht zum Schreiben öffnen bzw. erzeugen\n";

opendir my $DH, "." or die $!;

for my $quelle (readdir $DH) {

    next unless $quelle =~ /\.html?$/i; # nur html-Dateien auswerten

    open(my $FHquelle, "<", $quelle)
            or
            die "\nKonnte die Datei $quelle nicht zum Lesen öffen\n";
    
    {
      local $/ = "\n"; # Ist das wirklich erforderlich?
      
    while(<$FHquelle>){           #Lesen aus der Quelle
                            print $FHziel $_ if $. == 28;    #Zeile 28 in Zieldatei schreiben
        }
    }
    
    close($FHquelle);
	
}

close($FHziel);