open PLAY, $mit_shakes || die "Could not open file: $!\n";

##</code><code>##

open( PLAY, $mit_shakes ) || die "Could not open file: $!\n";

##</code><code>##

open PLAY, $mit_shakes or die "Could not open file: $!\n";

##</code><code>##

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

##</code><code>##

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

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

##</code><code>##

my $i = 0;

foreach (@ARGV) {
  if ($i == 0) {
    print "$_";
    $i = 1;
  }

  else {
    print ", $_";
  }
}

print ". </h2>\n";

##</code><code>##

print join ', ', @ARGV, "</h2>\n";

##</code><code>##

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

##</code><code>##

while ( my $line = <PLAY> ) {

##</code><code>##

  foreach (@ARGV) {
    my $character = $_;

##</code><code>##

  foreach my $character ( @ARGV ) {