#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %seen_err;

while(<DATA>) {$seen_err{$2} += $1 if (/(\d+)\s(\w+\s\w+)/)}
print Dumper \%seen_err;

_ _DATA_ _
Bla bla
4 Leichte Fehler
2 Mittlere Fehler
3 Schwere Fehler
wbuiuigb
wogo 5 Mittlere Fehler