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