perl -ne 'print if $.=/pattern/..10'