perl -ne 'next unless /pattern/;($i++<10)?(print($_)):(last)' <filename>