use strict;
use warnings;

my $file = do {local $/; <DATA>};

if ($file =~ m/START\n(.*?irgendwas.*?)\nEND/s) {
    print "Gefunden: Abschnitt ist:\n---\n$1\n---\n";    
}

__DATA__
blubb
START
df
sgreg
irgendwas
dfg
END
sgdg