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