perl -pi.bak -e 'BEGIN{1 ...