perl -lpe 's/wrongs/wrongs3/' wrongs >wrongs2