while ( $line = ) { if ( $line =~ m/$startzeit/ .. $line =~ m/$endezeit/ ) { # tu was } }