#!/usr/bin/perl 

use strict;
use warnings;

sub Main ();

Main;

sub Main () {
  my @table;
  while (<>) {
    chomp;
    my (@fields) = split(/\s*;\s*/);
    my $name = shift @fields;
    $name =~ s/[\s\d]+$//;
    my ($p12) = grep { s/^p12\s+// } @fields;
    my $firsts;
    my $seconds;
    if (defined $p12) {
      $p12 =~ tr/ //d;
      $p12 =~ tr/01234/-12?./;
      $firsts = ($p12 =~ tr/1/1/);
      $seconds = ($p12 =~ tr/2/2/);
      push(@table, [$name, $firsts, $seconds, $p12]);
      }
    else {
      push(@table, [$name, 0, 0, '']);
      }
    }
  my $maxname = 4;
  for my $row (@table) {
    $maxname = length($row->[0])
      if length($row->[0]) > $maxname;
    }
  for my $row (@table) {
    printf "%-${maxname}.${maxname}s %2d %2d %s\n", @$row;
    }
  }
