my $print = 0;
while (<>) {
    if (/diff/) {
        $print = $N;
    }
    elsif ($print) {
        --$print;
        print;
    }
}