#!/usr/bin/perl -w

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

open(FHquelle, "< $quelle")
        or
        die "\nKonnte die Datei $quelle nicht zum Lesen öffen\n";

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

{
  local $/ = "\n";
  
while(<FHquelle>){           #Lesen aus der Quelle
                        print FHziel $_ if $. == 28;    #Zeile 28 in Zieldatei schreiben
    }
}

close(FHquelle);
close(FHziel);