#! /usr/bin/perl
use strict;
use warnings;

my @treffer;
while ( my $line = <> ) {

  if ( $line =~ m{von} .. $line =~ m{bis} ) {
     push @treffer, $line;
  }
}