my @history;
while (<>) {
    print @history if /pattern/;
    push @history, $_;
    shift @history if @history > 3;
}