Another way to do it:

my $line;
while ( <> ) {
    if ( /LUN 40/ ) {
        $line = $. + 2;
        }
    if ( $line == $. ) {
        print;
        }
    }
[download]