perl -lpe '++($_=(()=<>))' < file