perl -ne 'print if$c=/pattern/?11:$c&&$c-1'