perl -lpi 's/wrongs($c++)/wrongs3/g; END{warn "count=$c\n"}' wrongs