open DATEI, "<$dateiname" or die "Error in reading $dateiname: $!\n";
while(<DATEI>){
 if(m/((\d+)\.(\d+)\.(\d+)\.(\d+)) (\d)/)
   {
     $hash{$1}+=$2;
   }else{
     warn "Zeile $. in Dateiname schaut nicht so aus wie erwartet\n";
   }
 }
close DATEI;