perl -lpi.bak -e "s/wrongs/wrongs3/" wrongs