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