#!/usr/bin/perl

use strict;
use warnings;

sub Main ();

Main;

sub Main () {
  while (<>) {
    next if /^[ *]/;
    die "can't parse: $_" unless /^\D/;
    s/^(.{20})// or die;
    my $name = $1;
    $name =~ s/\s+$//;
    my (@wl, @scores, @opps, @p12);
    while (/\S/) {
      my ($wl, $score, $oid) = unpack('x1A1A3A4', $_);
      substr($_, 0, 9) = '';
      my $p12 = $oid =~ s/\+// ? 1 : 2;
      $score =~ s/^\s+//;
      $oid =~ s/^\s+//;
      push(@wl, $wl);
      push(@scores, $score);
      push(@opps, $oid);
      push(@p12, $p12);
      }
    print "$name 1200 @opps; @scores; p12 @p12\n";
    }
  }
