my %counter = ();
while(my $line = <FILE>) {
   chomp $line; # Zeilenende abschneiden
   my (undef, $digit, undef) = split /\s+\|\s+/, $line, 3; # Zeile in 3 Teile splitten ... uns kümmert nur der Mittelteil
   $counter{$digit}++;
}
close(FILE);

print join "\n", map { $counter{$_} . 'x' . $_ } keys %counter;