until ($line =~ m/<\/head>/) {
  if ($line =~ m/<title>(.*)<\/title>/) {
    $title_of_play = $1;
  }
  print "$line\n";
  $line = <PLAY>;
}