$ ls -l foo*
-rw-rw-r--   1 metrica    metrica          0 Sep  6 08:02 foo
$ perl -pi~ -e '' foo
$ ls -l foo*
-rw-rw-r--   1 metrica    metrica          0 Sep  6 08:02 foo
-rw-rw-r--   1 metrica    metrica          0 Sep  6 08:02 foo~

##</code><code>##

$ perl -pi~ -e '' foo