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