#!/usr/local/bin/perl

use strict;   # Dadurch muss man jetzt my einfügen, Deklaration von Variablen
use warnings;
#use POSIX;   # Erweiterte mathematische Funktionen

#my @array;
my $suche1 = "suchstelle1";
my $suche2 = "suchstelle2";

#open(IN, "<$ARGV[0]") || die "die Datei $_[1]nicht gefunden\n";
#open(OUT, ">out.txt");

#while(<IN>) {
while(<DATA>) {

    if ($_ =~ $suche1 .. $_ =~ $suche2) {
        print;
    }

}

#close(OUT);
#close(IN); 

__DATA__
$ 01alte1 Spalte2 Spalte3 Spalte4
$ 02alte1 Spalte2 Spalte3 Spalte4
$ 03alte1 Spalte2 Spalte3 Spalte4
$ 04alte1 Spalte2 Spalte3 Spalte4
suchstelle1
$ 05alte1 Spalte2 Spalte3 Spalte4
$ 06alte1 Spalte2 Spalte3 Spalte4
$ 07alte1 Spalte2 Spalte3 Spalte4
suchstelle2
$ 08alte1 Spalte2 Spalte3 Spalte4
$ 09alte1 Spalte2 Spalte3 Spalte4
$ 10alte1 Spalte2 Spalte3 Spalte4
$ 11alte1 Spalte2 Spalte3 Spalte4