perl -wne'print if /pattern/..(/pattern/&&($.=-10),$.>=0)'