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

##</code><code>##

-ne 'next unless /pattern/;print scalar <> for 1..10;last' <filename>