use strict;

my %counter =
(
BPM => 0
);

my $pfad="c:\\lesen.log";
open(LOGFILE,"<$pfad") || die "NO INPUTFILE";
while (LOGFILE)
{
chomp;
$counter{$1}++ if (/(DAT)/g);
}
close LOGFILE;

print qq(BPMs: $counter{DAT}\n);