#!/usr/bin/perl 

use strict;
use warnings;
use List::Util qw(max);

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;
    if (defined $p12) {
      $p12 =~ tr/ //d;
      $p12 =~ tr/01234/-12?./;
      push(@table, [$name, $p12]);
      }
    else {
      push(@table, [$name, '']);
      }
    }
  my $maxname = max 4, map { length($_->[0]) } @table; 
  for my $row (@table) {
    printf "%-${maxname}.${maxname}s %s\n", @$row;
    }
  }
