#!/bin/perl
use POSIX;
use FileHandle;
use integer;
autoflush STDOUT 1;

$maxskip2 = 0; $maxskip3=0;
$maxbushu = 0;
while (<>) {
  ($skip1, $skip2, $skip3) = /\sP(\d+?)-(\d+?)-(\d+?)(?=\s)/;
  if ($skip2 > $maxskip2) { $maxskip2 = $skip2; }
  if ($skip3 > $maxskip3) { $maxskip3 = $skip3; }
  ($bushu) = /\sB(\d+?)(?=\s)/;
  if ($bushu > $maxbushu) { $maxbushu = $bushu; }
  ($bushu) = /\sC(\d+?)(?=\s)/;
  if ($bushu > $maxbushu) { $maxbushu = $bushu; }
}
  print "$maxskip2 - $maxskip3 $maxbushu\n";

