my @csv = (); # Array das später alle Felder beinhaltet

# 14 Zeilen überspringen
scalar <DATA> for 1..14;
# weitere Zeilen einlesen
while ( my $line = <DATA> ) {
    # Zeilenendezeichen entfernen
    chomp $line;      
      
    # Ende, wenn Zeile mit Telefon gefunden
    last if $line =~ /^Telefon:/i;

    # Datenfeld zwischenspeichern       
    push @csv,$line;       
}
# alle Felder mit dem ; verbunden ausgeben und ein Newline
print STDOUT  join( ';', @csv), "\n"; 

__DATA__
Firmenname
Kontaktmöglichkeiten
Deutscher Industrie und Handelskammertag (DIHK)
Strasse Gesellschaft Ort und Telefon
Hier noch was
da noch was
noch was, was nicht interessiert
Adresse der Firma
Vom Briefkopf rechts Zeile 1
Vom Briefkopf rechts Zeile 2
Vom Briefkopf rechts Zeile 3
Vom Briefkopf rechts Zeile 4
Absendername und -Adresse im Kuvertfenster
66663 Merzig
Herrn
Willi Mustermann
c/o Wilhelmine Musterfrau
1-Strasse 7
12345 Musterstadt
Telefon: 123 456-789
Mail: Blah@must.er
Blubb