#!/usr/bin/perl

use strict;

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

my $Anzahlspalten = 0;
foreach(@Zeilen) {
  if ($_ =~ s/dok_dat_feld./*/)
  $Anzahlspalten = $Anzahlspalten + 1;         // <---- LINE 14
}
print $Anzahlspalten;