Select Code to Download

use strict;
use warnings;
...
   $text = $act{$scene};
   } 
print $scene . "\n";

<PLAY>
<ACT><TITLE>Act 1</TITLE></ACT>
...
<LINE>Now, fair Hippolyta, our nuptial hour</LINE>
<LINE>Draws on apace; four happy days bring in</LINE>
</SPEECH>