# 14 Zeilen überspringen scalar <$INH> for 1..14; while (my $line = <$INH>) { # Ende, wenn Zeile mit Telefon gefunden last if $line =~ /^Telefon:/; print $line; }