perl -ne "push @a,$_;m/foo/ and exit 1;shift @a if $#a>3;END{$?==1 and print @a }" myfile.txt