while (<>) {
  next, if 2 .. 5;
  print;
}


##</code><code>##

my $index = 0;
my $skip = 0;
while (<>) {
  $index++;
  if ($skip or $index == 2) {
    if ($index == 5) {
      $skip = 0;
    }
    next;
  }
  print;
}