#!/usr/bin/perl
use strict;
use warnings;
while( my $line = <DATA> ){  print $line if $line =~ /^START/ .. $line =~ /^STOP/;}
__DATA__
Dies ist ein längerer Textmit vielen unnötigen Zeilen
vor dem eigentlich Wichtigen.
START
Wichtiger Text
über drei
Zeilen
STOP
Und noch unwichtigeren Zeilennachher