$ perl -pi~ -e '' foo