perl -i.bak -ple1 file.txt