in reply to Re: perl one line for advanced grep (current line and next one)
in thread perl one line for advanced grep (current line and next one)

I'll golf it readable (untested): 
perl -ne '
    print, $aft++, next if /PAT/;
    $aft or next;
    print "$_---\n";
    $aft = 0;'

[download]

In Section Seekers of Perl Wisdom