% perl -pi.bak -e 's/\.$//' file1 file2 ...