Naive stab:

while (<>) {
 next unless /$pattern/;
 for (1..$n){
    undef = (<>);
 }
 print;
 last;
}
[download]