How far does the normal baseball game get while being perfect

perfectinnings.awk

# Run against *.EV? in a file from <http://www.retrosheet.org/game.htm>

BEGIN {
  FS=","
}

$1 == "id" {
  if (awayisperfect) { print "perfect" }
  if (homeisperfect) { print "perfect" }
  awayisperfect = 1
  homeisperfect = 1
}

$1 == "play" && $7 ~ /^[SDTHWE]/ {
  if ($3 == 0 && awayisperfect) {
    print $2
    awayisperfect = 0
  }
  if ($3 == 1 && homeisperfect) {
    print $2
    homeisperfect = 0
  }
}

# Pipe to `sort | uniq -c` for useful data. Example output for 2013:
#
# $ awk -f perfectouts.awk *.EV? | sort | uniq -c
#   3396 1
#    994 2
#    302 3
#    123 4
#     34 5
#      7 6
#      4 7
#      2 9