#!perl -pl
$_=$.if!s/$.//;$.=$_-1