#!/usr/bin/perl

  use strict;
  use warnings;

  use constant TRUE => 1;
  use constant FALSE => 0;

  my $state = FALSE;
  while(<DATA>) {

      unless( $state == TRUE ) {   # wenn Operator unwahr ...
               $state = TRUE if /start/;  # ... wahr setzen wenn linker Operand wahr
     } else {                    # ansonsten ... ( wenn Operator nicht wahr )
          $state = FALSE if /end/;   # ... falsch setzen wenn rechter Operand wahr

          print if $state == TRUE;
      }
  }

_ _DATA_ _
  nichts
  nichts
start
  eins
  zwei
  drei
end
  nichts
  nichts
start
  vier
  fuenf
  sechs
end