while (<PLAY>) {
  $line = $_;