my $last_line = '';

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