Multiple find and replace for strings

Sometimes you need to replace a string in a big amount of files.
This can be easily done with the following command:

perl -pi~ -e 's/findstring/replacestring/' *