perl -d script.pl
  DB<2> l 32-46
32:       if($line =~ m/<!-- LHS movie -->/) {
33:         $mode ="LHS";
34:         $moviecounter++;
35:         $internal=0;
36        } elsif ($line =~ m/<!-- RHS movie -->/) {
37:         $mode = "RHS";
38:         $moviecounter++;
39:         $internal=0;
40        } elsif ($line =~ m/<!-- theater -->/) {
41:         $mode = "theater";
42:         $counter++;
43:         $moviecounter=-1;
44:         $internal=0;
45        } elsif ($mode eq "LHS") {
46:         if ($internal == 6 ) {