perl -ni.bak -e 'stuff' input_file