perl -i -pe 's#example.com/12.34.56.78#~example#g' *