while ( $line = <LESEN> ) {
      print SCHREIBEN $line;
      last if ( $line =~ m/$bisVrg/ );
      print "MATCH: $bisZum\n" if($line =~ m/$bisVrg/);
    }