@a = 1 .. 7;

##</code><code>##

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

##</code><code>##

$inmatch = 0;
while (something) {
  if (!$inmatch && EXPRSTART) {
    $inmatch = 1;
  }
  if ($inmatch) {
    doit();
  }
  if ($inmatch && EXPREND) {
    $inmatch = 0;
  }
}

##</code><code>##

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

##</code><code>##

$inmatch = 0;
while (something) {
  $wasinmatch = $inmatch;
  if (!$inmatch && EXPRSTART) {
    $inmatch = 1;
  }
  if ($inmatch) {
    doit();
  }
  if ($wasinmatch && EXPREND) {
    $inmatch = 0;
  }
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

Here's some text before
Some text with an A
some lines in the middle 1
some lines in the middle 2
some lines in the middle 3
Some text with a B
some useless lines 1
some useless lines 2
some useless lines 3
A line with both an A and a B
some lines after the line with both 1
some lines after the line with both 2
some lines after the line with both 3
Once again, text with a B
more useless lines 1
more useless lines 2
more useless lines 3