while ( my $line = <PLAY> ) {
    last if $line =~ m/<\/head>/;

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