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