while ( my $line = <PLAY> ) {