#!/usr/bin/perl 

use strict; 

open(DATEI, "</P007201031.JPL") || die "Datei nicht gefunden"; 
my @Zeilen = <DATEI>; 
close(DATEI); 

my $Anzahlspalten = 0; 

foreach(@Zeilen) { 
    if ($_ =~ /dok_dat_feld.*/) { 
        $Anzahlspalten += 1; 
    } 
} 

print $Anzahlspalten;