Select Code to Download

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

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