perl -pi -e 's/Will( Emigh)/JAPH\1/g' FileName