#! /usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $suchmuster = 'MUSTER';
my $zeilen_ueberspringen = 5;
my $datei = '/pfad/zur/datei.txt';

tie my @array,'Tie::File', $datei or die $!;
my @index = grep{/$suchmuster/}(0..$#array);
for my $ind(@index){
   print $array[$ind+$zeilen_ueberspringen];
}
untie @array;