perl -ne 'print if(/pattern/?$c=10:$c--)>0'