This outputs the new contents to the standard output. If you want to change the file, you have to add the -i flag:

perl -i~ -pe ...
[download]