perl -nE"push @b,$_;say $b[0] if /pattern/;shift@b if @b >10;" file.in