my $flag;
my $last_line = '';

while( my $line = <DATEI> ){
    $flag = 1 if $line =~ /$muster/;
    print $last_lint if $flag;
    $last_line = $line;
}