perl -i.bak -pe "s/OrigTxt/SubsText/g" FileName1.txt FileName2.txt