Select Code to Download

@a = 1 .. 7;

while (something) {
  if (EXPRSTART .. EXPREND) {
     doit();
   }
}

$inmatch = 0;
while (something) {
...
    $inmatch = 0;
  }
}

while (something) {
  if (EXPRSTART ... EXPREND) {
     doit();
   }
}

$inmatch = 0;
while (something) {
...
    $inmatch = 0;
  }
}

while (<>) { print if /A/ .. /B/ }

while (<>) { print if /A/ ... /B/ }

Here's some text before
Some text with an A
...
more useless lines 1
more useless lines 2
more useless lines 3