perl -i.bk -pe1 file