Select Code to Download

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

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

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

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

while ( my $line = <PLAY> ) {
    last if $line =~ m/<\/head>/;
...
    }
    print "$line\n";
}

my $i = 0;

...
}

print ". </h2>\n";

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

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

while ( my $line = <PLAY> ) {

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

  foreach my $character ( @ARGV ) {